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ABSTRACT 


■"The  Ada  language  has  been  designated  by  the  Department 
of  Defense  to  replace  the  computer  languages  currently  in 
use  by  the  various  services  for  tactical  computer  programs. 
This  thesis  modifies  the  Cornell  Subset  of  Ada  so  that  it  is 
suitable  for  producing  a  LALR(l)  grammar.  Machine  generated 
compiling  tools  such  as  LEX  and  YACC,  available  under  the 
UNIX  operating  system,  are  then  used  to  implement  the  scanner 
and  the  parser  for  this  subset  of  Ada. 
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I .  INTRODUCTION 


A.  BACKGROUND 

The  Ada1  language  has  been  designated  by  the  Department 
of  Defense  to  replace  the  computer  languages  currently  in 
use  by  the  various  services  for  tactical  computer  programs. 
Because  of  this  designation  the  Ada  language  will  become  an 
increasingly  important  language  for  computer  science  sub¬ 
specialists  in  the  Navy.  For  this  reason  the  Ada  language 
was  chosen  as  a  broad  topic  for  this  thesis,  and  specifically 
to  begin  the  work  necessary  for  the  eventual  realization  of 
an  Ada  compiler  for  the  Naval  Postgraduate  School. 

B .  APPROACH 

As  a  first  thesis  project  using  the  Ada  language  it  was 

2 

decided  to  utilize  the  UNIX  compiler  generator  tools,  LEX 
and  YACC  (described  in  detail  in  Section  Two) ,  to  produce 
a  three-address  code  intermediate  language.  This  approach 
was  taken  to  allow  future  thesis  projects  to  utilize  the 


^Named  in  honor  of  Ada  Augusta,  Lady  Lovelace,  the 
daughter  of  the  poet,  Lord  Byron,  and  Charles  Babbage's 
programmer.  f 

2 

UNIX  is  a  Trademark/Service  Mark  of  the  Bell  System, 
and  is  an  operating  system  for  the  PDP-11  at  the  Naval 
Postgraduate  School. 
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"front  end"  compiler  thus  produced  for  adaptations  to  the 
various  computer  systems  in  use  at  the  Naval  Postgraduate 
School . 

It  was  discovered  that  the  Ada  language  grammar  is  not 
defined  in  a  format  which  is  easily  adaptable  to  machine 
generated  compilers,  thus  necessitating  the  eventual  thrust 
of  this  thesis,  the  adapation  of  the  Ada  language  for 
machine  generated  compilers. 

In  Section  Two  the  complete  Ada  grammar  is  introduced. 
Section  Three  describes  the  use  of  the  UNIX  tools  YACC  and 
LEX.  Section  Four  fully  describes  the  Cornell  Subset  of  Ada, 
followed  by  a  description  of  the  Modified  Cornell  Subset 
(Ada/MCS)  in  Section  Five.  Section  Six  introduces  the  test 
programs  and  the  results  obtained  and  the  conclusions  of 
this  thesis  are  presented  in  Section  Seven. 
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II.  THE  COMPLETE  ADA  GRAMMAR 


A.  HISTORY  AND  DESCRIPTION  OF  ADA 

The  language  Ada  is  a  direct  result  of  the  Department 
of  Defense  High  Order  Language  Commonality  program  which 
began  in  1975  with  the  goal  of  establishing  a  single  high 
order  computer  programming  language  appropriate  for  DOD 
embedded  computer  systems.  The  Ada  language  was  designed 
with  three  major  objectives:  program  reliability  and 
maintenance,  a  concern  for  programming  as  a  human  activity, 
and  efficiency. 

The  Ada  programming  language  has  strong  expressive 

power  designed  to  cover  a  wide  application  domain.  It  is 

a  modern  algorithmic  language  designed  to  satisfy  the 
3 

Steelman  requirements.  A  brief  description  of  the  language, 
along  with  an  excellent  language  summary  from  the  "Reference 
Manual  For  the  Ada  Programming  Language  Proposed  Standard 
Document"  [Ref.  2]  which  was  received  during  the  final 
stages  of  this  thesis,  is  quoted  in  the  following  pages. 


^DoD  requirements  for  the  common  high  order  language 
were  formalized  in  a  series  of  documents  extensively 
reviewed  by  the  Services,  industrial  organizations, 
universities,  and  foreign  military  departments  which 
culminated  in  the  Steelman  Report  to  which  Ada  language 
has  been  designed. 


An  Ada  program  is  composed  of  one  or  more  program  units, 
which  can  be  complied  separately.  Program  units  may  be 
subprograms  (which  define  executable  algorithms) ,  packages 
(which  define  collections  of  entities) ,  or  tasks  (which 
define  concurrent  computations) .  Each  unit  normally 
consists  of  two  parts:  a  specification,  containing  the 
information  that  must  be  visible  to  other  units,  and  a 
body,  containing  the  implementation  details,  which  need 
not  be  visible  to  other  units. 

This  distinction  of  the  specification  and  body,  and  the 
ability  to  compile  units  separately  allow  a  program  to 
be  designed,  written,  and  tested  as  a  set  of  largely 
independent  software  components. 

An  Ada  program  will  normally  make  use  of  a  library  of 
program  units  of  general  utility.  The  language  provides 
means  whereby  individual  organizations  can  construct 
their  own  libraries.  To  allow  accurate  control  of  program 
maintenance,  the  test  of  a  separately  compiled  program 
unit  must  name  the  library  units  it  requires. 

Program  units: 

A  subprogram  is  the  basic  unit  for  expressing  an  algorithm. 
There  are  two  kinds  of  subprograms:  procedures  and  functions. 
A  procedure  is  the  logical  counterpart  to  a  series  of 
actions.  For  example,  it  may  read  in  data,  update  vari¬ 
ables,  or  produce  some  output.  It  may  have  parameters, 
to  provide  a  controlled  means  of  passing  information 
between  the  procedure  and  the  point  of  call.  A  function 
is  the  logical  coounterpart  of  the  computation  of  a  value. 

It  is  similar  to  a  procedure,  but  in  addition  will  return 
a  result. 

A  package  is  the  basic  unit  for  defining  a  collection  of 
logically  related  entities.  For  example,  a  package  can 
be  used  to  define  a  common  pool  of  data  and  types,  a 
collection  of  related  subprograms,  or  a  set  of  type 
declarations  and  associated  operations.  Portions  of  a 
package  can  be  hidden  from  the  user,  thus  allowing  access 
only  to  the  logical  properties  expressed  by  the  package 
specification. 

A  task  is  the  basic  unit  for  defining  a  sequence  of  actions 
that  may  be  executed  in  parallel  with  other  similar  units. 
Parallel  tasks  may  be  implemented  on  multi-computers, 
multiprocessors,  or  with  interleaved  execution  of  a  single 
processor.  A  task  unit  may  define  either  a  single  executing 
task  object  or  a  task  type  defining  similar  task  object. 
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Declarations  and  Statements:  1 

The  body  of  a  program  unit  generally  contains  two  parts: 
a  declarative  part,  which  defines  the  logical  entities  to 
be  used  in  the  program  unit,  and  a  sequence  of  statements, 
which  defines  the  execution  of  the  program  unit. 

The  declarative  part  associates  names  with  declared  entities. 
For  example,  a  name  may  denote  a  type,  a  constant,  a 
variable,  or  an  exception.  A  declarative  part  also  intro¬ 
duces  the  names  and  parameters  of  other  nested  subprograms, 
packages,  and  tasks  to  be  used  in  the  program  unit. 

The  sequence  of  statements  describes  a  sequence  of  actions 
that  are  to  be  performed.  The  statements  are  executed  in 
succession  (unless  an  exit,  return,  or  goto  statement,  or 
the  raising  of  an  exception  causes  execution  to  continue 
from  another  place) . 

An  assignment  statement  changes  the  value  of  a  variable. 

A  procedure  call  invokes  execution  of  a  procedure  after 
associating  any  arguments  provided  at  the  call  with  the 
corresponding  formal  parameters  of  the  subprogram. 

Case  statements  and  if  statements  allow  the  selection  of  an 
enclosed  sequence  of  statements  based  on  the  value  of  an 
expression  or  on  the  value  of  a  condition. 

The  basic  iterative  mechanism  in  the  language  is  the  loop 
statement.  A  loop  statment  specifies  that  a  sequence  of 
statements  is  to  be  executed  repeatedly  until  an  interation 
clause  is  completed  or  an  exit  statment  is  encountered. 

A  block  comprises  a  sequence  of  statements  preceded  by  the 
declaration  of  local  entities  used  by  the  statements. 

Certain  statements  are  only  applicable  to  tasks.  A  delay 
statment  delays  the  execution  of  a  task  for  a  specified 
duration.  An  entry  call  is  written  as  a  procedure  call; 
it  specifies  that  the  task  issuing  the  call  is  ready  for  a 
rendezvous  with  another  task  that  has  this  entry.  The 
called  task  is  ready  to  accept  the  entry  call  when  its 
execution  reaches  a  corresponding  accept  statement,  which 
specifies  the  actions  then  to  be  performed.  After  completion 
of  the  rendezvous,  both  the  calling  task  and  the  task  having 
the  entry  may  continue  their  execution  in  parallel.  A 
select  statment  allows  a  selective  wait  for  one  of  several 
alternative  rendezvous.  Other  forms  of  the  select  statement 
allow  conditional  or  timed  entry  calls. 
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Execution  of  a  program  unit  may  lead  to  exceptional  situa¬ 
tions  in  which  normal  program  execution  cannot  continue. 

For  example,  an  arithmetic  computation  may  exceed  the 
maximum  allowed  value  of  a  number,  or  an  attempt  may  be 
made  to  access  an  array  component  by  using  an  incorrect 
index  value.  To  deal  with  these  situations,  the  state¬ 
ments  of  a  program  unit  can  be  textually  followed  by 
exception  handlers  describing  the  actions  to  be  taken 
when  the  exceptional  situation  arises.  Exceptions  can 
be  raised  explicitly  by  a  raise  statement. 

Data  Types: 

Every  object  in  the  language  has  a  type  which  characterizes 
a  set  of  values  and  a  set  of  applicable  operations.  There 
are  four  classes  of  types:  scalar  types  (comprising 
enumeration  and  numeric  types),  composite  types,  access 
types,  and  private  types. 

An  enumeration  type  defines  an  ordered  set  of  distinct 
enumeration  literals,  for  example  a  list  of  states  or  an 
alphabet  of  characters.  The  enumeration  types  BOOLEAN 
ana  CHARACTER  are  predefined. 

Numeric  types  provide  a  means  of  performing  exact  or 
approximate  computations.  Exact  computations  use  integer 
types,  which  denote  sets  of  consecutive  integers.  Approxi¬ 
mate  computations  use  either  fixed  point  types,  with  absolute 
bound  on  the  error,  or  floating  point  types,  with  relative 
bound  on  the  error.  The  numeric  types  INTEGER  and  DURATION 
are  predefined. 

Composite  types  alloy  definitions  of  structured  objects 
with  related  components.  The  composite  types  in  the  language 
provide  for  arrays  and  records.  An  array  is  an  object  with 
indexed  components  of  the  same  type.  A  record  is  an  object 
with  named  components  of  possibly  different  types. 

A  record  may  have  distinguished  components  called  discriminants. 
Alternative  record  structures  that  depend  on  the  values  of 
discriminants  can  be  defined  within  a  record  type. 

Access  types  allow  the  construction  of  linked  data 
structures  created  by  the  execution  of  allocators.  They 
allow  several  variables  of  an  access  type  to  designate 
the  same  object,  and  components  of  one  object  to  designate 
the  same  or  other  objects.  Both  the  elements  in  such  a 
linked  data  structure  and  their  relation  to  other  elements 
can  be  altered  during  program  execution. 
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Private  types  can  be  defined  in  a  package  that  conceals 
irrelevant  structural  details.  Only  the  logically 
necessary  properties  {including  any  discriminants)  are 
made  visible  to  the  users  of  such  types. 

The  concept  of  a  type  is  refined  by  the  concept  of  a 
subtype,  whereby  a  user  can  constrain  the  set  of  allowed 
values  in  a  type.  Subtypes  can  be  used  to  define  subranges 
of  scalar  types,  arrays  with  a  limited  set  of  index  values, 
and  records  and  private  types  with  particular  discriminant 
values . 

Other  Facilities: 

Representation  specifications  can  be  used  to  specify  the 
mapping  between  data  types  and  features  of  an  underlying 
machine.  For  example,  the  user  can  specify  that  objects 
of  a  grven  type  must  be  represented  with  a  specified 
number  of  bits,  or  that  the  components  of  a  record  are  to 
be  represented  in  a  specified  storage  layout.  Other 
features  allow  the  controlled  use  of  low  level,  non 
portable,  or  implementation  dependent  aspects,  including 
the  direct  insertion  of  machine  code. 

Input  -  output  is  defined  in  the  language  by  means  of 
predefined  library  packages.  Facilities  are  provided  for 
input  -  output  of  values  of  user-defined  as  well  as  of 
predefined  types.  Standard  means  of  representing  values  in 
display  form  are  also  provided. 

Finally  the  language  provides  a  powerful  means  of  para¬ 
meterization  of  program  units,  called  generic  program 
units.  The  generic  parameters  can  be  types  and  subprograms 
(as  well  as  objects)  and  so  allow  general  algorithms  to 
be  applied  to  all  types  of  a  given  class. 


B.  YACC  AND  LEX 

Initial  research  for  this  thesis  began  with  Ada  Syntax 
Summary  which  is  presented  in  the  "Preliminary  Ada  Reference 
Manual"  [Ref.  1] .  The  initial  goal  of  producing  a  parse 
table  for  the  complete  Ada  grammar  involved  preparation  and 
modification  of  the  syntax  to  be  able  to  use  the  PDP-11 
facilities  of  Yet  Another  Compiler-Comiler  (YACC)  [Ref.  5] 


12 


and  LEX  [Ref.  7],  YACC  is  a  program  which  takes  the  syntactic 
(BNF )  grammar  rules  of  the  language  and  generates  a  program 
which  takes  as  its  input  the  output  of  a  scanner  program 
(tokens)  and  parses  a  program  written  in  the  defined  language 
(i.e.  Ada).  YACC  also  allows  semantic  rules  to  be  defined  and 
executed  for  each  syntactic  construct  of  the  language,  thereby 
completing  the  compilation  process.  In  place  of  an  input 
stream  of  tokens,  YACC  can  also  use  the  scanner  routine  gener¬ 
ated  by  the  LEX  program  as  a  subroutine  to  provide  the  input 
tokens . 

LEX  is  a  program  that  takes  as  its  input  regular  expres¬ 
sions  defining  the  characteristics  of  the  raw  character 
strings  of  a  language  and  generates  a  scanner  routine.  This 
scanner  routine  has  the  capability  to  eliminate  blanks  and 
comments  and  to  output  groups  of  characters  (tokens)  which 
are  meaningful  to  the  syntactic  rules  of  the  language. 

Executed  together  LEX  and  YACC  produce  a  "machine  gener¬ 
ated"  compiler  whose  input  is  the  character  string  of  the 
program  to  be  compiled,  and  whose  output  can  be  either  an 
intermediate  code  (generalized  form  of  execution  actions) , 
or  a  machine  executable  code. 

Using  YACC  for  the  Ada  language  was  a  two-step  process 
since  the  Ada  language  specification  is  written  in  a  modified 
Extended  Backus-Naur  Form  (EBNF)  and  YACC  requires  the 
language  grammar  to  be  expressed  in  Backus-Naur  Form  (BNF) . 
Therefore,  step  one  was  conversion  of  EBNF  to  BNF  and  step  two 
was  actually  executing  the  resulting  BNF  grammar  using  YACC 


and  LEX  . 
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The  most  significant  difference  between  the  EBNF  and 
BNF  forms  (other  than  the  fact  that  EBNF  is  far  more  con¬ 
venient  for  human  reading  of  a  grammar)  is  that  two  sets  of 
metasymbols  must  be  removed  from  the  EBNF  grammar  to 
produce  an  equivalent  BNF  grammar.  These  are  the  square 
brackets  [...]  meaning  zero  or  one  occurences,  and  the 
brackets  {...}  meaning  zero  or  more  repetitions;  also, 
several  symbols  must  be  replaced  in  the  EBNF  grammar  to 
make  the  productions  acceptable  to  YACC .  The  replacement 
operator,  double-colon-equal  (::=),  must  be  colon  (:).  All 
trivial  terminals  (parentheses,  semicolons,  commas,  etc.) 
must  be  enclosed  in  single  quotes.  All  other  nonterminals 
must  be  explicitly  indicated  to  YACC  and,  finally,  the 
head  symbol  production  rule  must  be  the  top  rule. 

The  symbol  replacement,  explicit  nonterminals  and  head 
symbol  rule  placement  must  all  be  accomplished  manually. 

The  brackets  mentioned  previously  are  automatically  removed 
via  a  conversion  process  which  yields  new  production  rules 
with  new  nonterminals.  These  new  nonterminals  are  formed 
by  concatenating  the  original  nonterminals  with  prefixes 
such  as  "fst."  and  "opt."  [Ref.  8].  The  entire  conversion 
process,  along  with  the  details  of  executing  the  resulting 
BNF  grammar  on  YACC  are  presented  in  [Ref.  8] . 

C  ice  the  complete  Ada  syntax  listed  in  [Ref.  1]  was 
modified  to  the  proper  BNF  form,  the  grammar  was  examined 
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in  detail  for  errors.  Two  errors  were  found  in  Appendix  E 
of  the  Preliminary  Ada  Reference  Manual  [Ref.  1].  First, 
the  token  "character-^literal"  was  used  in  the  production  rule: 

enumeration^-literal  ::=  identifier  |  character->-literal . 

"Character+-literal"  does  not  appear  on  the  left  hand  side 
of  any  production  and  was,  therefore,  changed  to 
"character*-string" .  Secondly,  in  the  "accept-'-statement" 
rule,  in  the  nonterminal  "entry«-name" ,  the  word  "entry" 
should  have  appeared  in  italics  indicating  it  was  simply 
a  syntactic  modifier  and  not  part  of  the  token  "name". 

After  these  errors  were  corrected,  the  complete  Ada  grammar 
in  appropriate  BNF  form  acceptable  to  YACC  was  executed. 

The  input  to  YACC  did  not  initially  include  any  lexical 
analyzer  or  action  code. 

The  sheer  length  of  the  resulting  BNF  form  of  the  Ada 
grammar  caused  a  memory  overload  on  the  PDP-11  and  YACC 
could  not  produce  a  complete  parse  table.  This  problem  was 
solved  by  manually  producing  a  list  of  every  nonterminal 
in  the  full  Ada  grammar  and  sorting  the  list  according  to 
length  (some  nonterminals  were  embedded  within  others) . 

Using  the  UNIX  line  editor,  each  nonterminal  was  then  replaced 
by  two  letter  sequences,  i.e.,  aa,  ab,  ac,  ...  The  BNF 
grammar  thus  produced  was  acceptable  to  YACC  and  required  far 
less  memory  space.  YACC  then  produced  a  complete  parse  table 
for  the  abbreviated  version  of  the  full  Ada  grammar  in  proper 


BNF  form. 
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The  resulting  parse  table  was  riddled  with  shift/reduce 
and  reduce/reduce  conflicts  ( almost  five  hundred  total  con¬ 
flicts)  .  After  verification  that  the  grammar  was  an  exact 
duplicate  of  the  syntax  summary  presented  in  the  "Preliminary 
Ada  Reference  Manual"  [Ref.  1] ,  with  the  exeption  of  the  two 
minor  errors  discussed  previously,  review  of  this  attempted 
parsing  of  the  grammar  verified  that  the  Ada  language  as 
defined  in  the  Preliminary  Manual  was  not  LALR(l) .  With 
the  exception  of  a  final  execution  of  the  full  Ada  grammar 
through  YACC  incorporating  the  changes  made  to  a  subset  of 
the  grammar  (discussed  in  Section  Seven) ,  this  completed  the 
work  on  the  full  Ada  grammar. 
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III.  UNIX  TOOLS 


A.  PREFACE 

This  section  of  the  thesis  is  intended  to  familiarize 
the  reader  with  the  various  language  development  tools  avail¬ 
able  under  the  UNIX  Operating  System  and  to  supplement  avail¬ 
able  documentation  that  often  glosses  over  the  intricacies 
of  language  development  using  UNIX.  This  section  will  also 
provide  specific  guidance  to  follow-on  thesis  projects  that 
use  UNIX  for  the  purposes  of  automatic  compiler  generation. 

The  compiler  process  of  taking  an  input  program  written 
in  a  source  language  and  producing  as  output  an  equivalent 
program  in  a  target  language  is  commonly  subdivided  into 
five  distinct  phases:  lexical  analyis  (scanning),  syntax 
analyzing  (parsing),  semantic  analysis,  code  optimization 
and  code  generation.  The  tools  available  under  UNIX  con¬ 
centrate  on  the  automation  of  only  the  scanning  and  parsing 
phases  of  compilation.  Automation  of  the  remaining  phases 
has  yet  to  become  a  reality. 

Although  an  overview  of  LEX  [Ref.  7]  and  YACC  [Ref.  5) 
was  presented  in  Section  Two,  it  was  slanted  towards  a 
description  of  these  UNIX  tools  rather  than  an  explanation 
of  how  they  are  specifically  used  to  build  a  compiler.  This 
section  provides  detailed  procedures  for  starting  with  the 
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given  syntax  of  a  strong  subset  of  Ada  (Ada/MCS)  and  auto¬ 
matically  generating  a  lexical  analyzer  and  parse  tables. 

B.  SPECIFICATIONS  FOR  USING  YACC 

Ada/MCS  is  in  Extended  Backus-Naur-Form  (EBNF) .  As 
previously  mentioned,  EBNF  is  very  convenient  for  human 
description  of  a  grammar  but  is  not  acceptable  to  the  YACC 
system.  Therefore,  the  conversion  program  [Ref.  8]  intro¬ 
duced  in  Section  Two,  which  is  stored  in  the  Naval  Post¬ 
graduate  School  Computer  Sciences  Laboratory  under  the 
name  "ebnftobnf",  must  be  used  to  convert  the  subset  in 
EBNF  to  BNF .  The  program  "ebnftobnf"  is  a  YACC  program 
input  and  must  be  processed  with  the  command: 

%  yacc  ebnftobnf 

The  percentage  symbol  is  the  UNIX  prompt  symbol.  The  operator 
is  expected  to  enter  an  operating  system  command.  The  execu¬ 
tion  of  the  above  command  produces  a  file  called  "y.tab.c" 
that  is  written  in  the  programming  language  C  [Ref.  9]. 

This  C  program  must  be  compiled  with  the  YACC  library  by 
using  the  following  operating  system  level  command: 

%  cc  y.tab.c  -ly 

The  output  of  this  compilation  is  the  desired  EBNF  to  BNF 
conversion  program  and  is  called  "a. out".  It  is  recommended 
that  "a. out"  be  changed  to  a  different  name  to  remind  the 
user  that  it  is  the  EBNF  to  BNF  conversion  program.  The 
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conversion  program  object  code  file  used  throughout  this 
thesis  is  called  "ebnf. conv".  The  preceding  steps  to 
arrive  at  a  conversion  program  must  only  be  accomplished 
once.  After  "ebnf. conv"  is  formed  by  the  steps  out¬ 
lined  above,  it  may  be  used  to  convert  any  EBNF  grammar  to 
BNF ,  once  the  symbols  referred  to  in  Section  Two  (double- 
colon-equals  and  trivial  terminals)  have  been  properly 
replaced  or  designated. 

After  forming  the  "ebnf .conv”  program,  Ada/MCS 
was  converted  to  BNF  form  using  the  following  UNIX 
operating  system  command: 

%  ebnf. conv  <ada. ebnf .sub  >ada.bnf.sub 

The  "<"  symbol  means  use  the  given  file  name  ( "ada .ebnf . sub" 
for  input  and  the  ">"  designates  that  the  output  file  be 
called  "ada .bnf . sub" . 

After  "ada .bnf . sub"  has  been  created,  several  steps 
must  be  taken  before  executing  the  BNF  form  of  the  subset 
with  YACC.  Using  the  UNIX  line  editor  ("ed  ada .bnf . sub" ) , 
the  command : 

>  g/+$/d 

was  used  to  remove  all  blank  lines  from  the  file.  The  ”>" 
character  is  the  UNIX  line  editor  prompt  and  is  not  entered 
by  the  user.  This  decreased  the  size  of  the  file  ar d  was 
a  preliminary  step  in  matching  up  the  line  numbers  of  the 
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BNF  grammar  with  the  referenced  reduction  numbers  from  the 
output  of  YACC. 

Throughout  the  Ada  grammar,  the  underscore  was  used 
extensively  to  more  explicitly  describe  names  (as  in 
array_type_def inition) -  Since  the  terminals  at  the  Naval 
Postgraduate  School  are  not  equipped  with  the  underscore 
character,  it  was  replaced  with  the  character  YACC 

uses  to  indicate  the  position  of  the  parsing  process 
(which  token  is  currently  being  analyzed)  so  it  was  decided 
to  change  this  character,  to  eliminate  confusion,  with  the 
line  editor  command: 

>  g/\-/s//\$g 

The  "$"  character  was  not  used  for  the  underscore  in  the 
original  EBNF  form  of  the  grammar  since  the  ebnf  to  bnf 
conversion  program  expects  or  as  name  separators 
for  its  input,  and  will  not  accept  a  Since  all  punc¬ 

tuation  must  be  enclosed  in  single  quotes,  a  problem 
occurred  when  the  single  quote  in  the  production: 

predef ined-<-attribute  ::=  name  '  identifier 

had  to  be  enclosed  in  a  single  quotes.  The  resulting  form 
in  the  EBNF  subset  became: 

predef ined-«-attri  :  name  '  '  '  '  id 
This  was  converted  to: 

predef  ined-*-attri  :  name  '  '  '  '  id 
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in  the  BNF  form.  In  using  YACC,  as  in  C,  the  backslash  ("\") 
is  an  escape  character  within  the  literals  and  therefore  the 
line  editor  command: 

>  s/"  •  V,SN’  V 

must  be  issued  to  change  the  line  that  "name  ' ' ' '  id" 
appeared  in  to  "name  'V '  id". 

The  final  change  to  "ada .bnf . sub"  while  in  the  line 
editor  was  to  ensure  that  the  head  production  appeared  as 
the  first  production  in  the  BNF  form  of  the  subset.  This 
was  accomplished  by  using  the  line  editor  move  command  ("m") 
to  move  the  appropriate  lines  to  the  start  of  the  grammar. 

After  completion  of  the  above  steps,  "ada .bnf . sub"  was 
in  an  acceptable  form  for  YACC,  but  several  steps  were  still 
required  to  actually  use  YACC.  The  next  step  in  the  process 
was  to  ensure  the  line  numbers  for  each  production  in  the 
BNF  grammar  corresponded  to  the  reduction  numbers  in  the 
parse  tables  in  "y. output",  the  output  file  obtained  from 
a  proper  execution  of  YACC.  This  was  most  efficiently 
accomplished  by  switching  UNIX  line  editors  to  vi  [Ref.  6  ] . 

Vi  (visual)  is  a  display  oriented  interactive  text  editor 
that  was  best  suited  to  combine  lines  in  productions  that 
did  not  have  a  null  (empty)  option.  The  BNF  version  of  a 
grammar  that  is  produced  via  the  conversion  program  dis¬ 
cussed  above  left  a  blank  line  following  every  production, 
whether  it  had  a  null  option  or  not.  The  Vi  command  "J" 
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was  used  to  close-up  the  first  options  of  every  production 
that  did  not  have  a  null  option,  so  that  every  production 
option  (including  null)  would  have  a  line  number  that  cor¬ 
responded  to  the  reduction  numbers  in  each  state  of  the 
parse  tables  of  "y. output". 

The  whole  purpose  of  the  above  procedures  was  to  pro¬ 
duce  a  s<?t  of  production  rules  acceptable  to  YACC,  and  thus 
be  able  to  build  a  compiler  that  can  process  a  program  in 
Ada  to  produce  either  a  "yes”  or  "no"  answer  as  to  the 
program's  syntactic  correctness  or  to  compile  it  to  some 
target  language.  To  accomplish  this  goal  the  BNF  grammar 
must  be  put  into  a  UNIX  file  that  fits  the  YACC  input 
format: 

token  list 

%% 

BNF  rules 

%% 

programs 

The  token  list  was  entered  into  a  file  called  "ada. tokens" , 
and  a  small  file  was  created  called  "ada. includelex"  which 
consisted  of  two  lines 

%% 

#  include  "lex.yy.c"  (the  output  of  Lex  - 

discussed  later)  . 

Thus,  the  operating  system  level  command: 
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%  cat  ada. tokens  ada.bnf.sub  ada . includelex>ada . temp 


concatenates  the  required  files  into  a  file  called  "ada. temp" 
which  can  be  processed  by  YACC  using  the  operating  system 
level  command: 

%  yacc  -v  ada. temp 

The  "-v"  option  produces  a  verbose  output  file  called 
"y. output"  which  is  a  complete  parse  table  listing.  Also 
produced  by  this  command  is  a  file  called  'y.tab.c"  which 
is  a  compilable  C  source  program.  If  YACC  is  executed 
without  the  verbose  option,  no  "y. output"  is  created. 

C  program  statements  for  processing  the  grammar  into 
a  target  language  as  each  production  is  recognized  can  be 
mixed  into  the  BNF  rules  using  the  "  =  {...}"  format  to 
enclose  each  action.  For  example; 

decl  :  obj$decl 

=  {  printf(”  I  decl  \n")  ?  } 

I  type$decl 

=  {  printfC  i  decl  \n")  ;  }  ; 

These  action  statements  were  not  added  to  the  grammar  until 
after  the  BNF  rules  themselves  were  determined  to  be 
LALR(l)  (no  parsing  errors).  For  this  thesis,  the  actions 
that  have  been  added  to  the  grammar  only  output  the  par¬ 
sing  actions  as  they  are  accomplished.  In  follow-on  theses 
these  actions  can  be  changed  to  code  generation  actions. 
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Following  the  creation  of  a  "y. output"  file,  the  UNIX 
operating  system  command  move  ("mv")  was  used  to  change 
the  file  name  as  each  execution  of  YACC  will  produce  a 
new  version  of  "y. output" .  At  this  point,  several  pages 
of  output  were  saved  by  editing  the  new  "y. output"  and 
using  the  line  editor  command: 

>  g/+$/d 

to  delete  all  blank  lines. 

The  complete  process  described  above  to  make  changes  in 
an  EBNF  grammar  and  then  follow  these  changes  through  to 
a  final  parse  table  listing  was  used  several  times  to 
finally  ensure  that  the  Ada  subset  (Ada/MCS)  was  a  LALR(l) 
grammar.  The  details  of  this  procedure  are  discussed  fully 
in  Section  Five. 

C.  SPECIFICATIONS  FOR  USING  LEX 

The  YACC  program  output  "y.tab.c"  makes  a  subroutine 
call  to  "yylexO".  This  call  is  a  request  for  input  tokens 
from  a  scanning  routine.  This  scanner  routine  is  produced 
by  the  LEX  program.  As  described  in  Section  Two  the  LEX 
program  inputs  are  regular  expressions  and  C  language 
action  statements.  Appendix  A  is  a  listing  of  "ada.lex", 
the  input  to  the  LEX  program  for  Ada/MCS . 

The  general  format  of  the  LEX  input  is: 

[definitions ] 

%% 
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[rules ] 


[user  subroutines] 

In  the  definitions  section  of  "ada.lex"  are  the  regular 
expressions  in  the  format  of: 

name  space  regular  expression 

For  example: 

1  [a-zA-Z] 
d  [0-9] 

c  (  {1}  I  (d)  ) 

defines  "1"  {for  letter)  as  a  character  from  a-z  or  A-Z , 

"d"  (for  digit)  as  a  character  0-9,  and  "c"  (for  character) 
as  a  leter  or  a  digit. 

The  specific  meanings  of  all  the  special  characters 
used  to  form  the  regular  expression  are  given  in  the  LEX 
manual  [Ref .  7 ] . 

Also  in  the  definitions  section  are  changes  to  the 
internal  array  sizes  for  the  LEX  program  that  override  the 
default  conditions  set  by  the  original  program.  For  the 
Ada  language  it  was  necessary  to  change  the  array  sizes. 

The  rules  section  is  in  the  format: 

lexical  definition  space  C  action  statement 
Any  reserved  word  can  be  returned  by  the  LEX  scanning  rou¬ 
tines  as  a  separate  token  value  by  using  the  word  as  a 
lexical  definition,  instead  of  returning  every  word  as  an 
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identifier.  This  saves  the  compiler  writer  from  checking 
each  identifier  with  a  reserved  word  table  in  the  parser 
section  of  the  compiler  and  allows  this  evaluation  to  be 
completed  in  the  scanner. 

Rules  are  included  in  this  section  for  eliminating 
blanks,  tabs,  and  new  lines  " [\t\u] ” ,  and  eliminating 
comments  [  5V1]*".  These  rules  do  not  return  any 

values  to  the  parser.  All  other  rules  return  a  token 
value  via  the  "return  (  );"  C  statement. 

The  single  special  characters  (i.e.  =)  could  have  been 
left  out  of  the  rules  sections  and  would  have  been  given 
default  values.  A  decision  was  made  to  supply  token  values 
to  these  characters  for  easier  verification  of  the  correct¬ 
ness  of  the  tokens  returned  to  the  parser  by  this  scanner. 

The  scanner  program  produced  by  LEX  may  be  run  as  a 
scanner  only  when  a  "main  {)"  routine  is  included  in  the 
user  subroutines.  This  was  done  as  a  stand  alone  test  of 
the  scanner  (see  Section  Six  for  results) .  The  separate 
compilation  is  done  with  the  operating  system  command 
sequence : 

%  lex  ada.lex 
%  cc  lex.yy.c  -11  -IS 

The  first  command  executes  the  LEX  program  with 
"ada.lex"  as  the  input  file,  and  produces  an  output  file 
"lex.yy.c"  which  is  a  C  compilable  file. 
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The  last  command  compiles  "lex.yy.c"  with  the  LEX 
library  routines  to  form  a  C  object  program  of  the  scanner. 

The  operating  system  command: 

%  a. out  <ada.prog  >output 

executes  the  scanner  thus  produced,  with  an  Ada  language 
test  program,  and  outputs  a  list  of  the  tokens  parsed. 

This  command  may  be  repeated  for  any  number  of  test  programs. 

The  user  subroutine  section  is  not  necessary  for  the 
scanner  to  interface  with  the  parser  produced  by  the  YACC 
program.  The  "mainO"  subroutine  in  this  section  is  there¬ 
fore  commented  out  in  the  C  format:  "/*  ...  */",  before 
the  parser  and  scanner  are  combined. 

The  parser  produced  by  YACC  and  the  scanner  produced 
by  LEX  may  be  combined  by  the  following  operating  system 
command  sequence : 

%  lex  ada.lex 
%  yacc  ada . temp 
%  cc  y.tab.c  -ly  -11  -IS 
%  mv  a. out  ac 

The  first  command  is  the  same  as  executing  the  LEX 
program  for  a  separate  compiler.  It  used  "ada.lex"  as 
input  and  produces  "lex.yy.c". 

The  second  command  executes  YACC  with  "ada. temp"  as 
input  and  produces  "y.tab.c"  as  output.  Again,  the  ”-v" 
for  a  verbose  output  is  optional. 
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The  third  command  compiles  "y.tab.c"  (which  contains 
* include  "lex.yy.c")  along  with  the  YACC,  LEX  and  UNIX 
operating  system  libraries.  It  should  be  noted  that  in 
order  for  "y.tab.c"  to  be  compiled  properly  it  had  to  be 
slightly  modified.  Since  each  grammar  production  became 
part  of  a  huge  "switch"  statement  in  the  C  language,  the 
length  of  the  grammar  exceeded  the  option  limit  (128)  in 
the  "switch"  statement.  The  entire  "switch"  was  simply 
divided  into  four  switch  statements  of  equal  length  and 
combined  using  the  "if  then  else"  construct.  The  compila¬ 
tion  of  "y.tab.c"  produces  the  compiler  object  program 
"a. out"  which  in  the  last  command  is  renamed  "ac"  (for 
Ada  compiler) . 

The  operating  system  command: 

%  ac  <ada.prog  >output 

executes  the  compiler  with  an  Ada  language  test  program. 

This  thesis  project  concludes  with  a  verification  of 
the  combined  actions  of  the  parser  and  scanner  and  the  out¬ 
put  of  this  last  command  is  a  trace  of  the  scanning  and 
parsing  actions  (see  Section  Six  for  results) . 

All  of  the  output  produced  by  "ac"  is  preliminary 
information  for  verification  purposes  and  can  easily  be 
deleted  by  eliminating  all  the  "printf"  C  commands  in  the 
"ada.lex"  and  "ada .bnf . sub"  files. 
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IV.  THE  CORNELL  SUBSET  OF  ADA 


A.  ADA/CS  (CORNELL  SUBSET) 

The  intention  of  this  thesis  was  to  begin  the  process 
of  building  a  compiler  starting  with  a  strong  subset  of 
Ada  and  allowing  additional  capabilities  and  features  of 
the  language  to  be  added  to  this  basic  building  block.  This 
approach  was  taken  due  to  time  constraints  and  the  size 
of  the  Ada  language. 

In  November  of  1979  the  Department  of  Computer  Science 
at  Cornell  University  issued  Technical  Report  TR79-395, 
"Ada/CS  —  An  Instructional  Subset  of  the  Programming 
Language  Ada"  [Ref.  4  3  which  was  used  as  the  starting  point 
for  the  language  syntax  for  a  machine  generated  front  end 
compiler  currently  under  production. 

The  designers  of  Ada  were  faced  with  clear  injuctions 
against  any  definitions  of  subsets  of  the  complete  Ada 
programming  language.  Those  restrictions  were  to  ensure 
standardization  of  the  language  and  perhaps  "to  pressure 
the  designers  to  be  frugal  in  their  proposals  by  denying 
them  the  escape  that  certain  exotic  features  would  be  ignored 

4 

in  practical  subsets." 


Archer,  J.,  "Ada/CS  --  An  Instructional  Subset  of  the 
Programming  Language  Ada",  Technical  Report  TR79-395, 
Computer  Science  Department,  Cornell  University. 
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when  the  design  phase  of  Ada  was  completed,  the 
originators  of  the  Cornell  Subset  of  Ada  saw  no  reason 
to  continue  the  restrictions  against  defining  a  subset  of 
Ada,  and  Viewed  its  development  as  a  necessary  instructional 
tool  that  would  allow  programmers  the  freedom  to  not  use 
certain  language  features  of  Ada.  Another  concern  of  the 
subset  writers  was  that  every  programming  language  that  is 
generally  accepted  as  viable  (and  DoD  assures  us  that  Ada 
will  be  accepted)  is  subjected  to  subsetting.  Thus,  to 
avoid  a  myriad  of  incompatible  subsets,  the  authors  of 
Ada/CS  formulated  their  subset  as  the  basis  for  a  small  number 
of  precisely  defined  standard  subsets.  The  intent  of  Ada/CS 
was  strictly  for  introductory-level  programming  instruction 
and  the  authors  felt  a  strong  need  to  overcome  the  mostly 
political  use  of  FORTRAN  for  basic  instructional  purposes. 

The  advantages  of  a  formal  subset  of  Ada  are  significant; 
especially  in  relation  to  compilers.  Subset  compilers  are 
easier  and  less  expensive  to  develop,  faster  in  operation, 
and  executable  on  smaller  systems.  In  addition,  a  compiler 
can  provide  must  more  effective  diagnostics  if  it  knows  that 
certain  language  features  will  not  be  used. 

B .  ADA/CS  ERRORS 

Ada/CS  was  defined  by  removing  some  constructs  entirely 
from  the  full  language  and  limiting  some  that  remained. 
Regardless,  the  syntax  summary  presented  in  Ada/CS  was 
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supposedly  a  proper  subset  of  the  Ada  syntax  presented  in 
"The  Preliminary  Ada  Reference  Manual”  and  all  productions 
of  the  subset  were  purportedly  created  by  simply  removing 
phrases  from  the  reference  version.  Although  this  was 
generally  the  case,  the  following  errors  were  noted  and 
corrected  in  the  Ada/CS  specification. 

In  the  "basic-loop"  production,  a  semi-colon  did  not 
follow  the  optional  identifier  following  "END  LOOP".  There 
were  two  cases  where  the  zero  or  one  symbol  [ . . . ]  had  been 
replaced  by  the  zero  or  more  symbol {...}  in  the  subset. 

These  two  cases  were  in  the  "relation"  production,  around 
"relational-»-operator  simple^expression"  and  in  the  "body" 
production  around  "visibility  restriction".  The  last  error 
was  another  case  of  losing  the  italic  designation  of  a 
syntactic  modifier  for  the  nonterminal  "name"  (there  was  a 
different  italics  error  discussed  in  Section  Two  that  was 
in  the  full  Ada  grammar).  In  the  production  for  "type^mark", 
in  the  nonterminal  "type-*-name" ,  the  work  "type"  should  have 
appeared  in  italics  to  demonstrate  its  syntactic  modifier 
status.  The  corrected  version  of  the  above  errors  are  in 
Appendix  B  under  "Ada/CS".  Note  that  italicized  words  are 
simply  eliminated  in  production  rules. 

Although  the  above  errors  were  a  bit  tedious  to 
discover,  they  were  easily  corrected  and  not  considered 
significant.  One  major  shortcoming  of  Ada/CS  which  was  very 
significant  from  a  compiler  writer's  point  of  view  was  the 
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absence  of  a  head  production  in  the  grammar.  A  head  production 
is  defined  as  the  one  grammar  rule  which  all  other  grammar 
rules  will  eventually  reduce  to.  The  head  production  rule 
when  recognized  by  the  parser,  signals  that  the  end  of  the 
input  character  stream  has  been  reached  and  the  compilation 
is  finished.  This  problem  resulted  from  the  deletion  of  the 
production  "compilation  :  :=  {compilation->-unit}"  from  the 
subset.  Whether  or  not  the  authors  of  Ada/CS  intended  to 
eliminate  separate  compilation  of  individual  units  from 
the  subset  is  not  clear.  It  can  be  inferred  by  the  omission 
of  the  "compilation"  production  that  this  capability  was  not 
desired  in  Ada/CS.  But,  by  this  omission,  the  head  production 
was  also  eliminated.  The  subset  was  therefore  expanded  to 
include  the  "compilation"  start  symbol  and  associated 
productions  from  the  Ada  reference  manual. 

C.  ADA/CS  COMPARED  TO  THE  COMPLETE  ADA  LANGUAGE 

Several  features  of  the  complete  Ada  language  were  omitted 
in  the  CS  subset.  The  main  features  of  the  complete  Ada 
language  were  discussed  in  the  language  summary  portion  of 
Section  Two.  The  major  features  that  were  not  included  in 
the  Cornell  Subset  are  discussed  below. 

The  facilities  for  defining  tasks  and  all  concurrent 
programming  features  have  been  eliminated  in  the  subset. 

Control  over  variable  record  representation  and  access 
variables  has  been  lost.  The  name  overloading  or  redefinition 
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capability  has  been  discarded  along  with  user-defined  generic 
procedures.  The  last  feature  omitted  was  the  exception 
mechanism. 

Along  with  these  major  construct  omissions,  further 
compression  of  the  full  Ada  language  was  accomplished  by 
attaching  semantic  and  syntactic  restrictions  to  the  con¬ 
structs  included  in  Ada/CS .  The  principal  restrictions 
were  imposed  on  expressions,  subprograms,  declarations, 
case  statements  and  goto  statements.  Expressions  were 
modified  by  not  allowing  array  or  slice  expressions  and 
discarding  exponentiation  from  the  subset.  The  subprogram 
construct  was  modified  considerably  to  greatly  simplify 
the  language.  Subprograms  cannot  be  used  to  redefine 
operators.  Also,  actual  paramenters  corresponding  to  out 
and  in  out  formal  parameters  must  represent  locations  which 
can  be  legally  assigned  values  of  the  appropriate  type. 

Formal  parameter  array  subscript  range  values  cannot  be 
specified.  Procedure  side-effects  are  not  allowed  in 
expressions;  only  function  subprograms  can  return  values. 

The  last  subprogram  restriction  was  that  keyword  parameter 
mechanism  were  not  allowed  in  Ada/CS.  Declarations  were 
limited  so  that  no  anonymous  types  were  allowed.  Case 
statements  were  slightly  modified  by  demanding  that  at  least 
two  choices  be  specified  and  requiring  a  "when  others" 
clause  if  all  legal  cases  are  not  syntactically  guaranteed. 


The  last  restriction  was  allowing  the  goto  statement  to 
transfer  control  forward  only.  The  Ada/CS  Technical  Report 
[Ref.  4]  provides  further  details  of  each  construct 
restriction . 

D.  ABBREVIATION  OF  THE  SUBSET 

Section  Two  discussed  the  difficulties  encountered  with 
the  full  Ada  grammar,  in  EBNF  form,  in  relation  to  available 
memory  space  on  the  PDP-11.  Since  the  final  subset  used 
in  this  thesis  consisted  of  approximately  half  the  productions 
of  the  complete  Ada  language,  the  somewhat  drastic  abbreviation 
mechanism  of  converting  every  nonterminal  to  a  two  letter 
sequence  was  not  necessary  in  the  subset.  The  subset 
productions  were  therefore  abbreviated  in  a  logical  manner 
and  the  resulting  BNF  form  is  easily  understood.  Appendix  B 
lists  the  modified  Cornell  subset  (Ada/MCS)  along  with  a 
listing  of  "ada. sub. terms"  that  may  be  used  to  clarify  any 
abbreviation  that  might  be  ambiguous  to  the  reader. 

The  details  of  Ada/MCS  are  discussed  in  the  next  section, 
along  with  a  complete  explanation  of  how  Ada/CS  was  modified 
to  be  LALR(l) . 
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V.  THE  MODIFIED  CORNELL  SUBSET  (ADA/MCS) 


A.  PREFACE 

As  stated  in  Section  Three,  YACC  requires  its  input 
grairaner  to  be  LALR(l) .  The  original  Cornell  Subset  (Ada/CS) 
was  not  LALR(l)  and  when  executed  with  YACC  resulted  in  over 
two-hundred  reduce/reduce  and  shift/reduce  conflicts. 
Reference  [  3 ]  provides  a  complete  explanation  of  these  con¬ 
flicts.  In  the  absence  of  any  user  directives  to  the  con¬ 
trary,  YACC  invokes  two  disambiguating  rules  to  deal  with 
conflicts.  In  a  shift/reduce  conflict,  the  default  is  to 
do  the  shift.  In  a  reduce/reduce  conclict,  the  default  is 
to  reduce  by  the  earlier  grammer  rule  in  the  input  sequence. 
Therefore,  although  it  is  possible  for  YACC  to  produce  a 
parser  even  in  the  presence  of  some  conflicts,  it  was  one  of 
the  prime  goals  of  this  thesis  to  rewrite  the  Cornell  Sub¬ 
set  of  Ada  so  that  it  was  LALR(l)  and  therefore  the  result¬ 
ing  parse  table  would  be  free  of  all  conflicts. 

B.  CHANGING  ADA/CS  TO  ADA/MCS 

Following  the  correction  of  the  grammer  errors  discussed 
in  Section  Three,  various  changes  to  the  BNF  form  of  the 
Ada  subset  were  made.  Each  conflict  in  the  initial  parse 
table  for  Ada/CS  was  carefully  examined  to  discover  the 
source  of  the  conflict  and  a  revision  of  the  appropriate 
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production (s)  was  attempted  so  that  the  language  would  not 
be  restricted  by  the  revision.  This  was  not  possible  in 
all  cases  and  some  revisions  caused  minor  limitations  to 
the  subset  grammar.  Several  conflicts  in  the  parser  auto¬ 
matically  generated  by  YACC  could  only  be  eliminated  by 
restricting  the  Ada  grammar. 

This  section  details  each  change  to  the  Ada/CS  pro¬ 
duction  rules  that  was  made  in  order  to  change  it  to  LALR(l). 
Unless  specifically  stated,  the  change  was  not  restrictive 
to  the  grammar. 

The  first  change  was  a  separation  of  the  sections  of 
Ada/CS  that  rightfully  belonged  in  the  lexical  analyzer. 
Reference  [  4]  contained  section  2.3  through  2.5  that  defined 
identifiers,  numbers  and  the  character  string  which  were  in 
turn  deleted  from  Ada/MCS  and  defined  more  appropriately  in 
"ada.lex"  (see  Appendix  A). 

After  adding  the  head  production  "compilation^unit"  and 
its  associated  productions  as  detailed  in  Section  Three,  it 
was  determined  that  several  reduce/reduce  conflicts  were 
being  caused  by  Ada/CS  not  distinguishing  whether  an  "id" 
was  meant  to  be  part  of  an  "enum->-lit"  or  part  of  a  more 
generalized  expression  or  part  of  "name".  The  following 
productions  illustrate  this  confusion: 

enunv-lit  :  id  I  char«-string 

name  :  id  I  indexed-^comp  I  selected-^-comp  |  predef ined-*-attr 
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lit  :  num  I  enum->-lit  |  char-'-string 
pri  :  lit  I  var  I  subprog-*-call  |  aggr 
I  qualif  ied*-expr  !  (expr) 

The  production: 

lit  :  num  I  enuim*-lit  !  char-<-str  ing 

was  allowing  "id"  to  come  through  the  literal  production 
above  into  the  "primary",  "factor",  "term",  "expression" 
chain  which  reduced  "id"  into  expressions  without  going 
through  the  "name"  production.  The  conflict  thus  created 
meant  that  an  "id"  which  was  part  of  a  "enum-*-lit"  was  reduced 
into  one  of  the  "expression"  structures.  For  example,  in 
the  "enum-'-type-defn"  : 

TYPE  light  IS  (red,  amber,  green) ; 

The  identifier  "red"  may  first  be  reduced  to  a  name,  where 
in  fact  it  is  strictly  an  enumeration  literal.  This  some¬ 
what  intricate  problem  was  corrected  by  simply  eliminating 
"enum-*-lit"  from  the  "lit"  production,  resulting  in: 
literal  :  num  I  char«-string 
The  productions: 

pri  :  lit  I  aggr  |  var  I  subprogt-call 
I  qualif  ied-*-expr  I  '  (  '  expr  '  )  ' 
var  :  name  opt .  disc-*-range  .  <- . 

I  name  ' . '  ALL 
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opt.-*-. disc-grange. -*-.  :  e 

[  '  (  '  disc-grange  ’  )  ' 

subprog  call  :  name  opt  .  para-*-assoc  .  .  1st .-*- .  para-assoc  .  .  •*- . 
I  1  ('  para-*-assoc  f  st  .*■ .  para^assoc  1  )  ' 

led  to  confusion  as  to  which  optional  null  production  was 
being  parsed  when  null  options  (s)  were  encountered.  For 
example,  the  subprogram  call: 

print-*-report; 

with  no  parameters  could  be  interpreted  by  the  parser  as 
a  variable. 

The  solution  was  to  eliminate  the  "opt.-1-  .  disc-*-range" 
and  the  "opt.-*- .  para->-assoc  ..  1st .-*-  .para+assoc  ..-*-.  "  in  the 
above  productions  for  "var"  and  "subprog-*-call"  so  that 
these  productions  would  be  parsed  only  if  they  began  with 
"  name  ' ( '  "  and  if  there  was  no  trailing  parenthesis  the 
parsing  table  would  be  left  with  just  a  "name"  which  was 
added  to  the  primary  production  above  to  yield  the  follow¬ 
ing  corrected  productions  whi>;n  will  parse  the  same  language: 

pri  :  lit  I  aggr  I  var  i  subprog-*-call 

I  qualif ied-t-expr  I  '  ('  expr  ')  '  I  name 
var  :  name  ' . '  ALL 

I  name  '('  disc-*-range  ')' 

subprog-*-call  :  name  '('  para-*-afasoc-*-f  ist  .  para-*-assoc .  ')' 

A  problem  occurred  with  the  "expr"  production  in  that  if 
no  option  followed  a  "rel"  in  the  production: 
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expr  :  rel  fst.AND.rel. 

I  rel  fst.OR.rel. 

I  rel  fst.XOR.rel. 

the  parse  table  did  not  know  which  empty  option  to  parse. 
For  example,  the  program  segment: 

IF  a<b  THEN 
LOOP  . . . 

is  an  example  of  an  expression  consisting  of  only  one  rela^ 
tion  which  would  lead  to  the  compiler  not  being  able  to 
determine  which  option  of  this  production  is  being  reduced 
The  solution  was  formulated  by  changing  "expr"  to 
encompass  the  logical  operator  functions  in  the  following 
manner : 

expr  :  expr  log-'-op  rel 
I  rel 

At  this  point  in  the  conversation  from  Ada/CS  to  the 
LALR(l)  Ada/MCS,  it  became  apparent  that  changing  the  BNF 
form  of  the  grammar  was  much  more  difficult  than  analyzing 
the  EBNF  form  and  making  changes  to  it.  The  procedure 
therefore  changed  at  this  point  in  the  thesis  to  strictly 
working  with  the  EBNF  grammar. 

Another  conflict  was  caused  by  "expr"  being  a  legal 
case  of  the  "aggr"  production: 

aggr  :  '  ('  comp^-assoc  {  '  ,  '  comp-assoc  '  ’)  1 
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comp-'-assoc  :  choice  {  '  1  *  choice  I  '=>'  expr  ; 
pri  :  lit  |  aggr  I  var  I  subprog-*-call 

I  qualif  ied--expr  |  '  ('  expr  ’)  ’  I  name 

An  example  from  the  language  illustrates  this  point.  The 
expression 

(a<b) 

parses  to  either  an  "aggr"  or  an  "expr"  and  the  real  deter¬ 
mination  of  the  type  of  language  construct  desired  must  be 
accomplished  semantically. 

The  solution  was  to  eliminate  "  * ( *  expr  1 ) 1  "  from  the 
"pri"  production  which  also  contained  "aggr",  and  let 
"  • ( *  expr  1 ) 1  "  parse  through  "aggr" .  The  difference  in 
code  generation  between  an  "expr"  and  an  "aggr"  (an  array 
or  record  value)  must  be  decided  at  the  semantic  level. 

Another  significant  ambiguity  occurred  in  Ada/CS  due 
to  the  fact  that  it  allowed  so  many  productions  to  begin 
with  "  simple-*-expr"  .  The  production 

range  :  simple-*-expr  '  .  .  '  simple-*-expr 

led  to  the  most  of  the  parsing  conflicts  and  was  therefore 
changed  by  limiting  the  first  "simple-*-expr"  to  an  "id"  or 
a  "lit"  as  follows: 

range  :  range-*- id  simple-*-expr 

range-*- id  :  id  I  lit 


Perhaps  the  major  source  of  parsing  errors  in  Ada/CS 
concerning  the  fact  that  "name  ' ( 1  "  could  be  the  start  of 
an  indexed-^comp  (array)  ,  a  "var"  (part  of  an  array)  ,  a 
"subprog-<-call"  ,  or  a  "qualif  ied-*-expr "  .  The  difference 
was  not  recognizable  in  the  compiler  because  all  the  above 
productions  used  the  same  delimiter,  i.e.,  "  (  )  For 

example,  when  a  subprogram  call  has  parameters  as  in 

cos  (x, y) ; 

this  call  is  syntactically  the  same  as  an  array  variable 
am-array  (x,  y)  ; 

The  solution  to  this  delimiter  situation  was  two-fold. 
The  first  part  was  to  remove  "qualif ied+-expr"  completely 
from  the  new  grammar  and  to  let  the  semantic  actions  tell 
whether  "  name  (expr)  "  was  a  qualified  expression  or  a 
subprog^-call .  The  second  phase  of  the  solution  was  to  make 
"  name  ' ( 1  "a  general  form  for  a  subprogram,  array  variable 
or  qualified  expression.  This  would  make  it  necessary  for 
the  parser  action  statements  to  differentiate  using  the 
symbol  table  and  generate  errors  where  new  incorrect  pos¬ 
sibilities  could  be  parsed.  This  step  also  allowed  the 
productions  "para-*-assoc"  and  "actual*-para"  to  be  deleted. 

The  resulting  productions  from  the  above  language  restric¬ 
tions  follow: 

name  :  id  I  subprog«-array-<-var  |  selected-*-comp 
I  predef ined«-attri 
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selected-*-comp  :  name  '  .  1  id 
predef ined^attri  :  name  ' ' ' '  id 
var  :  name  1 . '  ALL 

subprog-<-array-»-var  :  name  '  ( ’  expr  !  '  ,  '  expr  }  ' )  ' 

In  the  productions: 

disc-*-range  :  [type-*-mark  RANGE]  range 
aggr  :  '  ( '  comp^-assoc  {  '  ,  '  comp-*-assoc  }  ' )  ' 
compn-assoc  :  [choice  {  'I'  choice  }  *■=>']  expr 
choice  :  simple-^expr  I  disc*-range  1  OTHERS 
simple-<-expr  :  [unary<-op]  term  {  adding-*-op  term  } 

when  an  "aggr"  was  parsed  through  the  "comp+-assoc"  and 
"choice"  productions,  a  decision  was  faced  whether  to 
parse  to  a  "simple-*- expr"  or  a  "disc-<-range" .  These  pro¬ 
ductions  had  different  optional  beginnings  and  the  parser 
could  not  choose  which  production  it  was  attempting  to 
parse,  as  can  be  seen  in  the  following  example: 

C  :  TABLE  :=  (0. . 4  =>  0)  ; 

C  :  TABLE  :=  (5. .9  =>  1.0); 

where  the  first  numbers  (0  and  5)  are  the  beginnings  of  the 
discrete  range,  but  the  compiler  cannot  distinguish  until 

the  is  reached  whether  the  numbers  might  be  the 

beginnings  of  simple  expressions. 

It  was  decided  to  allow  only  one  of  the  two  productions 
to  have  an  optional  beginning;  therefore,  the  language 
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was  restricted  by  eliminating  the  option  of  a  null  pro¬ 
duction  at  the  beginning  of  the  "disc  range"  production: 

disc-grange  :  type-*-mark  RANGE  range 

In  every  instance  that  "AND"  or  "OR"  was  encountered, 
a  conflict  was  generated  when  the  parser  did  not  know 
whether  to  parse  to  "cond"  or  "expr".  The  following  pro¬ 
ductions  illustrate  the  problem  that  a  LALR(l)  parser  had 
parsing  the  grammar  as  written  because  "AND  THEN"  or  "OR 
ELSE"  created  a  necessity  to  look  ahead  two  tokens: 

cond  :  expr  {  AND  THEN  expr  } 

I  expr  {  OR  ELSE  expr  } 
expr  :  expr  log-^-op  rel  I  rel 
log*-op  :  AND  |  OR  1  XOR 

Ada/MCS  removed  this  (look  ahead  by  two  tokens)  conflict 
by  changing  the  "cond"  production  so  that  "AND  THEN"  and 
"OR  ELSE"  became  single  tokens: 

cond  :  expr  {  AND. THEN  expr  } 

I  expr  {  OR. ELSE  expr  } 

This  production  in  turn  created  an  ambiguity  since  if 
neither  "AND. THEN"  or  "OR. ELSE"  were  present,  the  parser 
did  not,  again,  know  which  empty  option  to  follow.  The 
empty  options  were  combined  as  follows: 

cond  :  expr  {  cond^-ext  } 
cond-i-ext  :  AND. THEN  expr 
I  OR. ELSE  expr 
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thus  creating  a  "condition  extension"  production,  which 
did  not  change  or  restrict  the  language. 

Another  series  of  conflicts  were  created  by  the  parser's 
attempts  to  decide  whether  the  "choice"  option  was  present 
or  not  and  therefore  distinguishing  whether  "id"  and  "lit” 
were  starting  a  "choice"  or  starting  an  "expr"  in  the 
productions: 

range-*-id  :  id  I  lit 

choice  :  range-’-id  1  disc«-range  I  OTHERS 
comp*-assoc  :  choice  {  '  |  '  choice  }  '=>'  expr 

These  conflicts  were  solved  by  creating  a  restricted 
choice  ( "restr-*-choice" )  in  the  "comp^-assoc"  production  as 
follows : 

comp-*-assoc  :  restr+-choice  {  'I'  choice  }  '=>'  expr 
I  pri  [{  ' | *  choice  }  '=>'  expr] 
restr-*-choice  :  disc-grange  I  OTHERS 
choice  :  range-*-id  !  restr«-choice 

thus  restricting  the  grammar  by  eliminating  the  option  of 
allowing  a  " simple-«-expr"  to  start  a  "choice".  Note  that 
the  second  option  for  "comp«-assoc"  used  "pri"  instead  of 
"simple-*-expr" .  This  further  restricts  Ada/MCS  in  that  a 
unary  operator  must  be  put  in  parentheses  when  used  in  the 
"comp*-assoc"  production.  This  restriction  was  a  valid 
trade-off  rather  than  allowing  "comp*-assoc"  to  begin  with 
"simple*- expr"  which  would  have  caused  further  complicated 
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changes  to  Ada/MCS  that  would  considerably  lengthen  the 
EBNF  form  of  the  grammar. 

C.  OBSERVATIONS 

The  preceding  description  of  the  various  changes  made 
to  Ada/CS  in  order  to  modify  the  grammar  to  be  LALR(l) 
are  traditional  examples  of  the  trade-offs  that  language 
implementors  must  face:  restricting  the  grammar  or 
lengthening  the  parse  table.  Since  most  compilers  have 
specific  time  constraints  that  must  be  met,  each  restric¬ 
tion  must  be  evaluated  to  intrinsically  measure  the  time 
saved  by  shortening  the  parse  table  versus  the  intended 
capability  of  the  original  language  grammar. 

Each  modification  that  was  made  to  Ada/CS  was  the  final 
result  of  many  experiments  in  efficiency  and  the  resulting 
Ada/MCS  does  not  lose  much  capability  compared  with  Ada/CS. 
Appendix  B  contains  the  Ada/MCS  grammar  and  Appendix  C  is 
the  conflict-free  parse  table  that  was  automatically 
created  by  YACC  for  Ada/MCS . 
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VI.  TEST  PROGRAMS  AND  RESULTS 

Appendix  D  contains  several  test  programs,  written  in 
Ada/MCS,  that  make  use  of  the  majority  of  the  features 
available  in  the  subset.  The  test  programs  are  not  elaborate 
but  serve  to  illustrate  that  the  automatic  scanner  and 
parser  developed  for  Ada/MCS  functions  properly.  Each  program 
illustrates  different  variations  of  syntactic  constructs  from 
Ada/MCS.  The  output  of  each  compiled  Ada/MCS  program  is  an 
easily  decipherable  scanner-parser  action  trace.  This  trace 
is  provided  in  Appendix  D  for  the  first  four  programs  only  to 
demonstrate  the  format  of  the  scanner-parser  action  trace; 
the  other  syntactic  constructs  tested  are  shown  without  trace 
results . 

Each  test  program  has  two  versions:  a  syntactically  correct 
form  and  an  incorrect  form.  The  format  of  the  scanner-parser 
action  trace  is: 

token  number  (from  ada.lex)  |  token 

|  reduction 
|  reduction 

These  reductions  contine  until  another  token  is  needed. 

Another  token  number  from  ada.lex  is  issued  and  the  process 
continues  until  the  head  production  is  reached.  For  example, 
the  program  excerpt  "PROCEDURE  test  IS"  would  have  a 


46 


scanner-parser  action  trace  as  follows: 


28 


PROCEDURE 


54 


18 


opt .vis $ restrict ion. 
opt. SEPARATE 
subprog$nature 
test 

designator 

IS 


opt. formal$part . 
opt . RETURN. type$mark 
subprog$spec 


If  a  syntax  error  occurs,  a  line  is  skipped  in  the 
scanner-parser  actions  trace  and  YACC  issues  the  statement 
"syntax  error”.  The  error  recovery  procedure  defined  in 
the  YACC  action  statements  cause  the  parser  to  request  tokens 
from  the  scanner  until  an  end  of  statement  character  (?)  is 
received.  The  printer  prints  the  message  "  j  Parse  error  ", 
and  the  procedure  continues  to  parse  beginning  with  the  next 
statement.  Ada. lex,  along  with  deleting  comments  and 
ignoring  blanks,  tabs,  and  newlines,  also  issues  the 
diagnostic  "Scanner  error  :  unknown  symbol"  in  every  instance 
that  an  unknown  character  is  encountered.  The  character  is 
then  ignored  and  the  parse  continues. 

The  scanner-parse  action  traces  in  Appendix  D  illustrate 
the  above  actions. 


47 


VII.  CONCLUSIONS 


A.  DOCUMENTATION  INADEQUACIES 

The  original  intention  that  ultimately  led  to  this 
thesis  was  a  full  implementation  of  a  compiler  for  the  pro¬ 
gramming  language  Ada.  As  is  common  with  most  compiler 
writing  projects,  unforeseen  problems  were  encountered; 
specifically,  inadequate  documentation  of  the  UNIX  system 
automatic  compiler  generation  tools  and  ambiguities  in  the 
Ada  language.  These  problems  forced  a  redirection  of  the 
thesis  goals  to  the  task  of  laying  the  groundwork  for  a 
future  implementation  of  Ada  through  the  development  of  the 
first  two  steps  of  the  compiler  process:  the  scanner  and 
the  parser. 

The  documentation  for  YACC  and  LEX  had  no  specific 
errors,  but  several  weaknesses  existed.  The  documentation 
did  not  provide  enough  detailed  explanation  of  LEX  or  YACC 
or  specific  examples  for  a  first-time  user  of  these  tools. 
It  also  did  not  include  any  specific  implementation  details 
concerning  the  Naval  Postgraduate  School  PDP-11/-50  system. 
For  example,  the  LEX  documentation  listed  two  distinct 
methods  of  specifying  character  constants:  quotation  marks 
and  backslashes;  however,  on  the  NPS  system  the  only  method 
implemented  was  the  backslash. 
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Section  Three  of  this  thesis  was  an  attempt  to  alleviate 
these  documentation  shortcomings  by  providing  a  detailed 
description  of  the  use  of  these  UNIX  tools  for  the  project 
of  writing  an  Ada  compiler  (or  any  compiler) . 

Another  serious  documentation  deficiency  was  the  inclu¬ 
sion  in  the  UNIX  documentation  of  an  introductory  description 
of  a  program  called  EYACC  (Extended  Yet  Another  Compiler- 
Compiler)  which  purported  to  expand  the  memory  capability  of 
the  YACC  program  that  was  eventually  used  for  this  thesis. 

Due  to  the  size  of  the  Ada  grammar,  EYACC  was  originally 
chosen  for  this  thesis  to  take  advantage  of  its  expanded 
memory  capabilities.  EYACC  was  discarded  at  the  later  stages 
of  the  thesis  because  it  was  discovered  that  it  was  only 
partially  implemented  on  the  NPS  PDP-11/ 50  system.  It  would 
produce  a  parse  table  listing,  but  when  compiled,  the  listing 
would  yield  no  output. 

B.  FUTURE  SYMBOL  TABLE  IMPLEMENTATION 

The  major  objective  of  this  thesis  was  to  verify  the 
possibility  of  a  machine  generated  parser  and  scanner  for 
Ada.  In  the  process  of  revising  the  Ada  grammar  to  form 
an  LALR(l)  grammar  it  was  discovered  that  some  ambiguities 
in  the  language  were  due  to  the  similarity  of  the  syntactic 
constructs  for  different  semantic  actions.  For  example, 
the  array  variable  "  array^a (x,y , z)  "  is  syntactically  similar 
to  the  subprogram  call  "cos(x,y) ".  This  problem  could  be 
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resolved  in  either  of  two  ways:  (1)  modify  the  scanner 
to  use  a  symbol  table  lookup  procedure  and  return  a  token 
value  for  "arrav^-a"  or  "cos"  that  is  more  specific  than 
an  identifier  (e.g.,  "array--id"  and  "  subprog-*-id" )  ,  or  (2) 
make  the  grammar  rile  recognize  the  general  syntactic  form, 
(i.e.,  "identifier  (expression,  expression  ...)")  and  use  a 
symbol  table  lookup  procedure  in  the  action  portion  of  the 
grammar  rule  to  distinguish  between  "array^-a"  and  "cos". 

Due  to  the  time  constraints  of  this  thesis  it  was  not 
possible  to  implement  a  symbol  table,  consequently  it  was 
decided  to  delay  the  symbol  table  lookup  procedure  as 
explained  in  the  second  alternative  given  above.  This 
allowed  for  the  verification  of  the  scanner-parser  inter¬ 
face  without  use  of  a  symbol  table. 

This  solution  was  decided  upon  for  the  ambiguities 
discovered  between  array  or  record  names  and  subprogram 
names,  and  for  the  ambiguity  between  array  or  record 
parameters  and  variables. 

When  a  symbol  table  is  eventually  incorporated  as  a 
follow-on  to  this  thesis,  it  may  be  desirable  to  use  a 
symbol  table  lookup  procedure  in  the  scanner,  resulting  in 
simpler  semantic  actions. 

C.  INCLUSION  OF  ADA/MCS  IN  THE  FULL  ADA  GRAMMAR 

The  elimination  of  the  shift/reduce  and  reduce/reduce 
errors  in  the  Ada/MCS  subset  discussed  in  Section  Five  made 
it  desirable  to  investigate  the  effect  of  the  Ada/MCS 
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changes  on  the  full  Ada  grammar.  This  investigation  was 
accomplished  by  manually  changing  the  abbreviated  BNF  form 
of  the  full  grammar  and  processing  the  modified  full 
grammar  with  YACC. 

This  process  decreased  the  parsing  errors  from  490 
to  236. 

D.  SUMMARY 

This  thesis  was  written  using  the  "Preliminary  Ada 
Reference  Manual"  as  its  primary  source  of  documentation 
and,  as  has  been  discussed,  it  was  discovered  that  Ada  is 
not  easily  implemented  by  automated  compiler  generation 
tools.  During  the  final  stages  of  this  thesis,  the  pro¬ 
posed  standard  reference  manual  for  Ada  was  acquired  and 
a  review  of  this  document  revealed  that  the  original 
ambiguities  of  the  language  still  exist  in  the  proposed 
final  version  of  Ada. 

One  conclusion  of  this  thesis  is  the  fact  that  a  pro¬ 
grammer  may  use  Ada  to  express  his  ideas  without  ambiguity, 
but  a  reader  may  find  the  same  program  ambiguous.  The 
difficulties  discussed  in  Section  Five  concerning  the 
"  name  (  "  dilemma  very  clearly  substantiate  this  point. 
Variable  names  are  not  easily  distinguishable  by  the 
reader  without  referring  to  the  data  declarations  section. 
It  is  acknowledged  that  the  designers  of  the  Ada  language 
intended  arrays  and  subprogram  calls  to  look  alike,  since 
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it  may  sometimes  be  desirable  to  implement  arrays  as  sub¬ 
programs  (for  example,  sparse  arrays).  However,  it  is  felt 
that  the  readability  problem  created  by  this  intended 
ambiguity  may  eventually  create  maintenance  difficulties 
for  ongoing  software  development  projects. 

Section  Five  provides  a  detailed  analysis  of  the 
changes  that  were  necessary  to  convert  an  existing  subset 
of  Ada  to  a  LALR(l)  grammar.  In  the  development  process 
of  Ada  the  primary  consideration  seems  to  have  been  an 
attempt  to  create  a  language  that  would  impose  a  structured 
programming  environment  upon  the  users,  for  the  enhancement 
of  the  software  engineering  process  of  program  development, 
without  enough  consideration  being  given  to  the  language 
implementors.  Perhaps  the  strongest  conclusion  drawn  from 
this  thesis  is  that  Ada  compilers  may  be  more  costly  and 
take  longer  to  develop  than  anticipated  due  to  these  lan¬ 
guage  ambiguities.  This  could  result  in  delaying  the 
replacement  of  the  current  DOD  tactical  languages  in  use 
with  a  standard  acceptable  Ada  language. 
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APPE.VOIX  A 


Ada . lex 

This  appendix  is  a  listing  of  the  input  file  to  the 
LEX  program  and  shows  the  reserved  word'-#  and  reqular  ex¬ 
pressions  defining  identifiers?  numbers?  and  character 
S  t  r i ngs . 

1  ta-zA-Zl 
d  10-9) 

c  ( <1 > ! id> ) 

cx  (  \«- !  <  1  >  !  (d)  ) 

dx  ( \«- !  <  d  >  ) 

i  UdHdx)*) 

i  decex  (<i>\.{iMe>) 
i dec  ( { i ) \  { i >  ) 
i  ex  ( { i } ( e >  ) 

b  (  (  i  >\#(  <  1  >  !  <d>  )  t  (\«-i  {  !  >  ;  { d >  )  *) 

e  ( \E ( ( \  +  ? { i > ) ! (\-< i >  )  )  ) 

charst  r  \" (\a0-\ 1 76J  *\" 
id  <  1  >  (c  x  >  * 

num  { i > ! { o } ! { i dec  > !  < i decex } ! < i ex } 

Xe  600 

Xo  .  aooo 


53 


Xn 

300 

Xa 

2000 

Xo 

2000 

XX 

ALL 

{ p  r  i  n  t  f  (  "  1 

H 

AND 

{printf("2  i 

ARR  A  Y 

{printf("3 

» 

1 

ASSERT 

<printf("U 

1 

1 

ri  t  G  I N 

{printf("5 

1 

1 

dODY 

{ p  r  i  n  t  f  (  "  6  ! 

w 

CASE 

{printf("7  ! 

H 

constant 

{  p  r  i  n  t  f  (  " 

8 

ELSE 

{print  f('"?  ! 

rt 

ELSIF 

{printf("10 

1 

1 

end 

(  o  r  i  n  t  f  (  "  1  1 

EXIT 

{ p  r  i  n  t  f  (  "  1  2 

FOR 

{printf("13 

FUNC T ION 

(orint  f  (" 

1  a 

GOTO 

{pr i nt  f  (  M  15 

i 

i 

IF 

{or i nt  f ( M lb  ! 

i« 

IN 

{printf("l7  ! 

n 

15 

{printf("18  ! 

* 

LOOP 

{printf ("IP 

t 

i 

MOD 

(printf("20 

* 

« 

) » ECHO ; d p i n t f  (  "  \n" ) ; ret  urn ( 1  )  # > 

) ; ECHO » d r i nt f  (  "  \n " ) } re t u r n ( 2  )  >  } 
")7£CH0;orintf("  \n");return(3);) 

“ ) ;ECHO;Drint  f ("  \n " ) ; r e t u r n C a  )  ;  > 
M);ECHO;printf("  \n" ) ; ret  urn (5)  ;  I 
);ECHO;orintf(H  \n" ) ; ret  urn (b  )  ;  ) 
);ECHO»printf("  \n  "  )»' return  (  7  );  ) 

!  M)»ECtlO»Drintf("  \n");return(8);) 
)?ECHO;orintf("  \n" ) ; return(^) ; ) 

“);ECHO;printf(,,  \n");return(  10)  /  ) 

M ) ;ECHO;pri nt  f ("  \n" ) ; ret  urn (  1  1  )  ;  > 
M)/ECHO/printfC"  \n" ); return! 18)  >Q 
");ECHO;printf("  \n" ); return  !  1  3)  i  1 
!  H ) ; ECHO ; pr i n t f  (  "  \n" ) ; ret  urn ( l a  ) ; 
")?ECHO;printf(”  \n");return(15);> 
)/ECHO/printf(M  \n") 1  return! lo) ; ) 
)/ECHO/orintf("  \n" ) »  return!  17);) 
)/ECHO;printf("  \n"  ).' return  (  10)  ;  ) 

"  )  ;  ECHO; or  i  nt  f  ("  \n"  ) ;  ret  urn  (  1  <? )  ;  > 
");ECHO;printf("  \n");return(20);> 
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MOT  {printt("21  !  ")!ECHO;printf("  \n") ; return(21 ) ; ) 

MULL  {printH"22  !  ");ECHO;printf("  Sn");retum(i?2);) 

OF  <printt("23  !  " ) ; ECHO ; pr i n t f ( "  \nn ) ! ret  urn ( 23) i > 

OR  {print f("24  !  ");ECHO;printf("  \n");return(24);> 

OTHERS  {pr i nt  f ( "25  J  ");ECHO;printf(H  \n " ) ; ret u rn ( 25 ) 7 ) 

OUT  <printf("26  !  ");ECHO;printHn  \n");return(2t>);> 

PACKAGE  {printf("27  }  " ) ; ECHO ; p r i n t f ( H  \n" ); return (27 ); > 

PROCEDURE  {printf("28  !  " ) ! ECHO ; pr i n t  f ( "  \n");return(28);> 
RANGE  {printf("2R  I  "  ) ;  ECHO ;  pr  i  n  t  f  (  "  \n"  ) !  retum(29)  ;  > 

RECORD  {printf("30  !  "  )  /  ECHO  ;  pr  i  nt  f(  "  \n"  ); return ( 30 ); o 

RESTRICTED  <printf("31  {  "  ) ;  ECHO;  pr  i  nt  f  (  "  \n"  )»'  return  (  31)  ;  > 
RETURN  {printf(H32  !  ");ECHO;printf("  \n");return(32)*} 

REVERSE  <orintf("33  !  " ) ; ECHO ; p r i n t f ( "  \n  " ) ;  r e t u rn ( 33  )  ;  > 

SEPARATE  {Drintf("34  J  " ) ; ECHO ; pr i n t f ( "  \nH  )  ? ret  urn  (  3a ) ; } 

THEM  <printf("35  I  M ) ; ECHO; p r i n t f ( "  \n " ) ; re t u r n ( 35 ) ; } 

TYPE  {printf("36  !  "  )  !  ECHO  ;  p  r  i  n  t  f  (  "  \n")  ;  rStum(36)  !  I 

USE  <printf("37  |  "  ) ; ECHO ; p r i n t f ( "  \n"  ); return ( 37 ); > 

WHEN  (printf(‘'3R  !  "  )  »  ECHO;pr  i  nt  f  (  "  \n  "  )  ?  r  e  t  u  rn  (  39  )  7  > 

WHILE  (printf("50  !  " ) ; EC  HO ; p r i n t f  (  "  \n  "),*  re  t  u  rn  ( 50  );  > 

XQR  {printf("51  !  ");ECH0;printf ("  \n")  ; return (51) ; } 

AMD. THEM  {printf("52  !  "  ) ; ECHO ; p r i n t f ( "  \n "  ) ; re t u rn ( 52 ) ; ) 

OR. ELSE  {pr i nt  f ( "53  !  " ) ; ECHO ; p r i n t f ( "  \n" ) ; ret u r n ( 53 ) ; ) 

\:\?  (printf("70  J  ");ECHO;printf ("  \n  "  )  ; r e t u rn ( 70 ) ; > 

\.\.  <printf("71  }  "  )  ;  ECH0;pri nt f ( ”  \n " ) ; r e t u r n ( 7  1  )  ;  > 
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=  \> 

{printf("72 

|  "  )  ;ECH0;Dr i nt f ( " 

\n  " 

)  ;  return(72) ;o 

\/\? 

{print*("73 

J  -  )  ;ECH0;pri nt f ( " 

\n 

")#return(73) ! ) 

\<\= 

<pri nt  f ("74 

i  "  )  ;£CH0;pr i nt f ( " 

\n 

")»return(74);} 

\>\  = 

{pr i n t  f ( " 75 

!  "  )  *  ECHO ; pri nt  f ( " 

\n 

");return(75);> 

\<\< 

{ p  r  i  n  t  f ("76 

");EChO;printf(" 

\n 

");return(76)»> 

\>\> 

<print*("77 

!  "  )  ;ECH0;pr i nt f ( " 

\n 

");return(77);> 

\; 

{pr i nt  f ( " 78 

!  " )  ;ECH0;pr  int f (" 

\  n  " 

)>return(78)*} 

\( 

{or i nt  f ( " 79 

i  " ) ;ECH0;pr i nt f ( " 

\n" 

) >  return ( 79)  ;  1 

\) 

{printf("80 

!  ");ECHO;printf (" 

\n” 

) i ret  urn(80)  >  ) 

\ : 

{print  f  C  H  8 1 

I  ");ECHO;printf (" 

\n  " 

)» re  turn (81);) 

{orintf("8£ 

!  ") ;ECH0; print f  (" 

\n" 

) »  r e  t  u  rn ( 82  ) »  ) 

\. 

{or i nt  f ( "83 

!  "  )  JECHO.'pr  i  nt  f  (  " 

\n  " 

) >  r e  t  u  rn ( 83  )  #  ) 

\* 

(or i nt  f ( "84 

!  ")?ECHO?print»(" 

\n" 

1 ) ; r e  t  u rn ( 84 ) ; > 

\= 

{orintf("85 

;  ");ECHO;0rintf  (" 

\n  " 

1 ) J  ret  urn  (  85  )  l  > 

\< 

{pr i n  t  f ( " 36 

!  ");ECHO;orintf (" 

\n " 

’)?  ret  urn ( 8b) ; □ 

\> 

{print  M"87 

!  " ) ;ECHU;pr i nt f (  " 

\n " 

') ; return(87) ! > 

\& 

{print  f ( 

:  ");ECHO;printf C" 

\n* 

1  ) ! ret urn(88) J } 

\* 

{orintM"  8a 

|  " ) ;ECH0;orint f (" 

\  n  1 

' )  t ret  urn  (  89  )  ;  ) 

\/ 

(orint  f ( "80 

!  ")  ;ECHO ; print f(" 

\n 1 

* ) ; ret  urn (90) ; ) 

\ : 

{print  f 

i  "  )  ;£CH0;pr i nt f ( " 

\n 1 

"  )*return(9i);) 

S* 

{ pr  i  n  t  f  (  " **2 

!  "  )  ;ECH0;pr i nt f ( " 

\n  1 

");return(92);) 

\  - 

{pr  nt  f  ("<?3 

!  "  )  ;ECH0;pri nt t ( " 

\n 

");return(93);) 

{,d>  {prmtf("54  i  M  ) ;  ECHOJpri  nt  f  (  "  \n  "  )  ;  re  t  u  r  n  ( 5a  )  ;  > 

,num>  { p r i n t  f ( " 55  !  " ) ; EC HO ; p r i n t f ( "  \n"  )  ; ret urn(55 ) ?0 
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APPENDIX  8 


Ada/MCS 

The  appendi *  is  a  listing  of  the  four  files 
fine  Ada/MCS. 

Ada. terms. mean 

This  oortion  of  Appendix  9  is  simply  a  li 
all  the  abbrev i at i ons  used  in  forming  the  subset 
This  file  is  not  an  input  to  YACC. 

aggr  laggregate 
aoprox  lapproximate 
assoc  Jassociation 
attri  : at  t  r i but  e 
char  Icharacter 
chars  Jcharacters 
comp  Ccomoonent 
cond  : condi t i on 
constr  Iconstraint 
dec  1  :  dec  1  a  ra  t i on 

def n  :def i ni t i on 
disc  : di sc  ret  e 
enum  Enumeration 


that  de¬ 


sting  of 
Ada/MCS. 
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exp  lexponent 


expr  .’expression 

ext  :extention 

fac  ifactor 

id  : i dent i  f  i  er 

i nt  : i nteger 

iter  : i terat i on 

lit  : 1 i t  era  1 

log  : 1 og i c a  1 

mod  imodule 

mult  J  mu  1 1 i D 1 y i ng 

num  Inumber 

obj  looject 

od  : operator 

para  Iparameter 

pri  iprimary 

prog  Iprogram 

pel  : re  1  a  t i on 

re  1  a  1  : re  1  at i ona 1 

restr  irestricted 

seg  tseguence 

soec  : soec i f i c at i on 

stmt  istatement 

stmts  istatements 


A 
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s  t  r  : s  t  r i nq 


var 
v  i  s 


:  var  j  ao ! e 
:  v  i  s  i  o  i  1  i  t  y 
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Ada. tokens  Ada/MCS  Ada . i nc 1 ude 1  ex 


These  three  files  are  concatenated  to  form  the  incut 
to  YACC.  This  input  file  provides  YACC  with  the  token 
values  that  will  be  returned  from  the  scanner,  the  BNF  gram¬ 
mar  rules,  and  the  actions  to  be  performed  by  the  parser. 


Xtoken 

'S' 

0 

Xt oken 

ALL 

1 

Xtoken 

AND 

2 

Xtoken 

ARRAY 

3 

Xtoken 

ASSERT 

a 

Xtoken 

BEGIN 

5 

Xtoken 

BODY 

6 

Xt  oken 

CASE 

7 

Xt  oken 

constant 

8 

Xt  oken 

ELSE 

9 

Xt  oken 

ELSIF 

1  0 

Xt  oken 

END 

1  1 

Xtoken 

EXIT 

12 

Xt  oken 

FOR 

1  3 

Xtoken 

FUNCTION 

1  4 

Xtoken 

GOTO 

15 

Xtoken 

IF 

16 

Xtoken 

IN 

17 

bl 


itoten 

IS 

18 

Xt  oken 

LOOP 

IP 

Xt  oken 

HOD 

20 

Xtoken 

NOT 

21 

X  t  oken 

NULL 

22 

X  t  o  ken 

OF 

23 

%t  oken 

OP 

2  a 

Xt  oken 

OTHERS 

25 

Xt  oken 

OUT 

26 

Xtotcen 

PACKAGE 

27 

Xt  oken 

PROCEDURE 

23 

Xtoken 

RANGE 

29 

Xt  oken 

RECORD 

30 

Xtoken 

RESTRICTED 

31 

Xtoken 

RETURN 

32 

Xtoken 

REVERSE 

33 

Xtoken 

SEPARATE 

34 

Xtoken 

THEN 

35 

Xtoken 

TYPE 

36 

Xtoken 

USE 

37 

Xtoken 

WHEN 

39 

Xtoken 

WHILE 

50 

Xtoken 

XOR 

51 

62 


Xt  oken 


AND . THEM 


52 


X  t  o* en 


OR. ELSE 


53 


Xtoken 

Xt  o ken 

Xt  oken 

Xtoken 

Xto*en 

Xtoken 

Xt  oken 

Xtoken 

Xtoken 

Xtoken 

Xtoken 

Xtoken 

Xtoken 

Xtonen 

Xtoken 

Xtoken 

Xtoken 

Xtoken 

Xtoken 

Xtoken 

Xtoken 

Xtoken 

Xtoken 


i  d 

5a 

num 

55 

charSstr 

56 

t  .  —  t 

70 

i  i 

. . 

71 

'  =>  • 

72 

'  /=' 

73 

•  <= ' 

74 

75 

'  <<  ' 

7b 

'  >>  ' 

77 

’ ; ' 

78 

'  ( ' 

79 

' ) ' 

80 

•  i  i 
i 

81 

i  « 

9 

82 

•  1 
• 

83 

'  \  '  1 

84 

•  -  i 

85 

'  <  • 

8b 

'  >  • 

87 

88 

<  *  • 

89 

b3 


Xtoken  '/•  90 

Xtoken  91 

XtoKen  ' t '  92 

Xtolcen  93 

XX 

compi 1  at i on$un i t  :  od t . y i s $ r e s t r i c t i on  .  opt  .SEPARATE  . 

unit  Sbody 

=  <orintf("  !  c omp i  1  a t i on$un i t \n "  )  ;  }  ; 

ODt.visSrestriction.: 

=  {printf  ("  !  opt.vis$restriction.\nH);> 

!  v i sSrest  r i c  t i on 

=  {orintf (“  !  opt . v i s Sr es t r i c t i on  . \n  "  )  J >  i 

oot .SEPARATE. : 

S  (printfC"  !  0Pt .SEPARATE.  'n")?> 

!  SEPARATE 

=  <printf("  !  oot .SEPARATE.  \n");>  ; 

dec  1 :  ob  j  Sdec 1 

=  (print f("  !  dec  1  \n");> 

1  tyoeSdecI 

=  <printf("  !  decl  \n");l 
!  error  ~  (orintfC"  !  Parse  error\n");}  ; 

oot .CONS  TANT . : 

=  (orintfC  !  opt  .CONSTANT .  \n"),*> 

!  CONSTANT 


P4 


=  (printfC  oot  .CONST  ANT .  \n"  ) ',  >  ) 

oot . S . e xo r  .  i 

=  {printfC"  !  opt.S.expr. 
j  • : = ’  expr 

=  {printfC  >  opt.S.expr  i 

oQ i Sdec  t :  laSli.t  opt .CONSTANT  .  tyoe  opt.S.expr 

=  (printfC  !  ob  j  Sdec  1  \n")C  < 

f  s  t  .  5  •  »  d .  s 

=  {print  f C  i  fst.S.id.  \n");> 

;  fst.S.id.  *  * ’  id 

=  {printfC  !  fst.S.id.  \n")M  ! 

idSlist:  id  fst.S.id. 

=  {printfC  !  »dS1  ist  \n" ) ,  >  > 

tyoe!  t  ypei^ank 

s  (printfC  !  t  yoe  \r>"  ) }  >  > 

typeSdefn:  enumS t ypeSde f n 

=  (printfC  I  tyPeSdefn  \nH)J> 

|  i nt  St  ypeSde  f n 

=  {or int f ("  J  tyoeSdefn  \n" ) J > 

J  a r r a y S t y pe $de f n 

=  {printfC  !  tyoeSdefn  \nH);> 

;  r ec o r d$ t y p e Sde f n 

s  {printfC"  !  t  ypeSde  f  n  \n");>  i 

t  ypeSmark '  name 


=  (or i n t  f ( " 

!  typeSmark  \ n  M  )  / >  ! 

constr:  rangekonstr 

=  (printfC 

!  const  r  \nM ) ; o  ; 

tyoeS  dec 1 :  TYPE 

id  IS  tyoeSdefn 

=  (printfC 

!  t  ypeSdec 1  \ n  "  )  7 }  7 

ranqeiconstr:  PANGE  range 

=  (printfC 

!  rangeSconstr  \n")7f  7 

range:  range Sid 

s  i  mol eSexpr 

=  (printfC" 

!  range  \n*)JO  7 

r  angei id:  id 

=  (printfC" 

!  rangeSio  \n") ; ) 

:  lit 

=  (printfC" 

!  rangeSio  \n");>  7 

f  3  t  .  enum$ lit.: 

=  (printfC" 

!  fst.  enumSlit.  \n  "  )  7 > 

!  fst.enumSlit.  enumj  I  i  t 

=  (orintf C  !  fst.enumSlit.  \nM)  I) 
enum S t vd« Sde f n :  ’(’  enumSlit  fst.enumSlit. 

=  {orintf ("  I  enu^itvoeidefn  \n");> 


enu«ij  lit:  id 

-  (orintf ("  !  enumSlit  \n");> 

!  charist r 

=  (orintf ("  5  enumSlit  \n")?°  \ 


i n t $ t v oe Sde f n :  ranqeSconstr 


(  p  r  i  n  t  f  ( 


i  nt St ypeSdef n  \n");>  ; 


f  st . $ . i ncex  . : 

=  <  o  r  i  n  t  f  C  " 

!  fst.S.index. 

=  (printfC 
arrayStvpeSdef n:  ARRAY  '(' 
t  ypeSmark 

=  (pr'ntf C 
index:  discSrange 

=  (printfC" 

!  tyoeimark 

=  (printfC" 

discSrange:  tyoeSmark  RANGE 
=  (printfC* 
fst .I.compJassoCt  : 

=  (printfC" 

!  f s t . S . c omp Sas soc . 

=  (printfC" 

aggr:  ' C ’  conolassoc  fst.S 
=  (printfC" 

fst .S.cnoice. : 

=  (printfC" 

!  f at .5.cioice.  '!' 


!  fst.S.index.  \n  "  )  ;  } 
index 

!  fst.S.index.  \n");}  ; 

index  fst.S.index.  ')' 

!  arrayStypeSdefn  \  n  "  )  ;  }  ; 

!  index  \n  "  )  ;  > 

!  index  \n");>  ; 

r  ange 

J  discS  range  \  n  "  )  ;  }  ; 

!  f s t . compSas soc  .  \n");> 

' , '  c  ompSassoc 
!  fst.S.compSassoc.  \n");> 
.conpSassoc  .  '  )  ' 

!  aggr  \n" )  ;  }  ; 

!  fst. $. choice.  \n");> 
choice 

fst. $. choice.  \  n  "  )  ;  >  ; 

cC 


(printfC 


oot . . 1st .5. choice. . $ . e  xo  r 


h 


?  (ocintf ("  !  oDt..lst.$.choice..I.e*pr. 

\nM)  ; } 

!  f s t . $ . c ho i ce  .  '=>*  e«op 

=  <printf(M  1  opt.. 1st. $. choice. .Sexor. 

\n");>  ; 

comoSassoc:  restrichoice  f s t . $ . c ho i c e  .  ’=>'  exor 

=  { o  r  i  n  t  t  {  ”  !  compSassoc  \  n  ’* ) ;  > 

1  pri  op t . . 1 s t . $ . c ho i c e . . S . e xp r  . 

=  (orintf  ("  !  compSassoc  \n”);}  ; 

res t r Sc  ho i c e :  discSrange 

=  {  p  r  i  n  t  f  (  "  !  restrSchoice  \  n 11  )  ;  } 

!  OTHERS 

=  {printf ("  1  restrSchoice  \  n  "  )  ;  >  ; 

choice:  rangeSid 

=  (orintf  ("  !  choice  \n");} 

!  restrSchoice 

=  <orintf("  !  choice  \  n  "  ) ;  }  ; 
recordStyoeldefn:  RECORD  comoSlist  END  RECORD 

=  (orintf C  !  r ec o r d$ t y oeSde f n  \n");}  ; 

f s  t . ob  j  Sdec 1  .  : 

=  (orintf ("  i  f s t . ob j Sdec 1  .  \n");> 

!  f s t . ob j Sdec t  .  ob j Sdec 1 

=  (print  f  C  !  fst.objSdec).  \n"):>  ; 


to8 


compSlist:  f s t . oo j $dec 1  . 

=  (printff"  !  comps  list  \n");>  ; 


name:  id 


=  {pr i nt  f ( " 

!  suoorogSarraySvar 
=  {printfC 
!  select  ed$c  omp 

=  { o  r  i  n  t  f  (  M 
|  prede f i nedSat t r i 
=  {printf(M 

se 1 ec t ed$c omp  :  name  id 

=  {printfC" 

prede f i nediat t r i  :  name  'S'* 
=  {printfC" 


!  name  \n " )  ;  > 

!  n  ame  \n"  )  >  > 

!  name  \n" ) ; } 

!  name  \n" ) ; >  » 

!  se 1 ec t edScomp  \n");> 
i  d 

!  p rede fi nedSat t r  i  \n") 


lit:  num 


=  ior i nt  f ( "  I  lit  \n"  1  ;  > 


j  charJst r 

=  (ori nt  f  (  "  !  lit  \n")  ;  }  ! 

v  a  r :  name  1  .  '  ALL 

-  {printfC"  !  var  \n")#>  l 


fst .S.expr. : 


=  (prjntf  ("  fst. S.expr.  \  n  "  )  ;  ) 

!  fst. S.expr.  ' , '  exor 


{ Dr i n t  f ( 


!  fst. S.expr.  \n");> 


suDProgSarraySvar;  name  *('  expr  fst»$*expr.  ) 

s  {orintfC  !  suborogSarraySvar  \n");>  ; 

oot . rel al Soo.si mpl eSexor.  : 

=  {printfC  !  opt . rel a  1 Soo . s i mpl eSexor 

\n");} 

i  relalSoo  simpleSexpp 

=  {printfC  1  opt  .  rel  al  Sop. si  mpl  eSexor 

\n");>  ; 

OPt  .not . : 

=  {printfC  !  OPt. NOT.  \n");> 

!  NOT 

=  {printfC  !  opt. NOT.  \n");>  ; 

oot.constr,: 

=  {printfC  1  oot.constr.  \n");> 

|  const  r 

=  {printfC  !  oot.constr.  \n");o  ; 
re  I  I  s i mp I eSexor  oot  .  re  1  a  1  Sod • s i mo  1 e$expr . 

=  {printfC"  !  rel  \rin )  t  } 

J  si  mol eSexor  opt .NOT .  IN  range 
s  {printfC"  !  rel  \n"  )  >  ) 

;  sirnoleSexpr  oot. NOT.  IN  tyoeSm ark  oot.constr 
=  {printfC"  !  rel  \ n "  ) »  I  » 

expr:  expr  1 ogSoo  rel 

=  {printfC"  !  expr  \n")fl 
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!  r  e  1 


=  (crintf  (" 

oot .uoarySoo. : 

=  {orintfC 
!  unarySop 

=  (pr i nt  f  C 
fst.addingfoo.term.: 

=  (orintfC 
!  f  s  t  .  add  i  ngSop  .  t  e r m 
=  <dpi nt  f  (" 

simoleSexpr:  opt .unarySop. 

=  {orintfC 
f  S  t . mu  1 t  Soo .fac.: 


!  expr  \n"  ) ; } ; 

1  op t . una r y Sop  .  \n")*> 

!  opt. unarySop.  \n");>  ; 

!  f s t . add i ngSoo . t e rm  .  \n");> 
.  add i ngSop  term 
!  f s t . add i ngSop . t e r*  .  \n");> 
term  f s t . add i ngSop • t e rm . 

!  si mpl eSexpr  \n"  )  ;  }  i 


=  {orintfC  !  fst.multSop.fac.  \n"  )  ;  } 

!  fst.multSop.fac.  multSoo  fac 

=  (orintfC  !  fst.multSop.fac.  \n");o  ; 
term:  fac  f s t .mu  1 t Soo. f ac • 

=  (orintfC"  !  term  \n" ) ; }  ; 


fac:  Pr i 


=  (orintfC"  !  fac  \  n  "  )  »  >  ; 


or i :  lit 


1  aggr 


(orintfC"  !  ori  \n"  )  ?  > 


(orintfC  pri  \n"),*> 
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!  name 


= 

(printf (" 

!  ori  \n") 

!  var 

= 

{printf C 

!  pr i  \n" ) 

logSopJ  AND 

= 

{printfC" 

!  logiop  \n 

!  OR 

= 

{or i nt  f  C  M 

!  1  ogSop  \n 

!  XOR 

= 

{printfC" 

!  1 ogSop  \n 

re  1  a  1  Sop :  '  =  ' 

= 

{ or i n t  f ( " 

!  re  1  a  1  Sop 

II 

\ 

= 

{printfC" 

!  re  1  a  1  Sop 

J  '<• 

= 

{printfC" 

!  re  1  a  1 Soo 

!  '<=' 

- 

{printf (" 

!  re  1  a  1 Soo 

:  •>• 

= 

{or i nt  f ( " 

!  re  1  a  1  Sop 

•  •>=• 

{printfC" 

!  re ) a  1  Sop 

add i ngSoo :  ' ♦ ’ 


>  ; 

) ;  > 

);> 

)?>  ; 

\n") ;  > 

\n");} 

\n")  ;  > 

\n")i} 

\  n  " ) ; } 


{printfC"  !  addingSoo  \n")#° 


{orintf(M  !  addingSop  \n");> 


:  •  &' 

=  {pri nt  f  (  "  ! 

addingSoo 

\n") ; o  ; 

unar y$OD :  * ♦ * 

s  {orintf(" 

i  unarySop 

\n"  ) ;  > 

1  - 

-  {or  i nt  f ( H 

!  unarySoo 

\n" ) ; > 

!  NOT 

s  { or i n t  f ( M 

!  unarySoo 

\n");>  ; 

mult  loo!  1  * ' 

=  lorintit" 

!  mul t$op 

\nH)  ;  ) 

: 

=  {  d  r  i  n  t  f  (  H 

!  mu  1 t  Sod 

\n "  )  ;  } 

!  ^OD 

-  {or i nt  f  (  " 

!  mult  Sop 

\n")?>  ; 

fst.stmt.: 

=  {print  H" 

!  fst.stmt 

.  \n");> 

;  f st 

.stmt,  stmt 

=  {  d  r  i  n  t  f  (  " 

!  fst.stmt 

.  \n"  )}} 

seqSo  fSstmts: 

fst.stmt. 

s  { pr  i  n  t  f  (  H 

!  seqSoflstmts  No" 

stmt:  s i mp I eSs t  mt 


{print  f ( * 


stmt  Sn");o 


c  ompoundS s  t  m  t 


=  {printfC"  !  stmt  \  n  "  )  ;  } 

•  ' << •  id  ' >> '  stmt 

=  (printfC"  !  stmt  \n");> 

J  error  =  { p r i n t f C "Pa r se  error\n");>  ; 

simpieSstmt:  a s s i gnmen t S s t m t 

=  {printf("  i  simpieSstmt  \  n  "  )  ;  } 

!  suborogScal 1 Sstmt 

=  {printfC"  !  simpieSstmt 

1  exitSstmt 

=  (printfC"  !  simpieSstmt  \n");} 

i  returnSstmt 

=  (printfC"  1  simpieSstmt  \n")?} 

1  gotoSstmt 

=  {printfC"  !  simpieSstmt  \n")»o 

1  assertSstmt 

=  {printfC"  !  simpieSstmt  \n"  );l 

!  NULL  '  ; ' 

=  {printfC"  !  simpieSstmt  \n”);}  ; 

COmooundSst mt :  ifSstmt 

=  (printfC"  !  compound Sstmt  \  n  "  )  J  1 
!  caseSstmt 

=  {printfC"  I  COmooundSst mt  \n");} 


!  1 oooSstmt 


-  {printfC"  !  compoundSstmt  \n");}  ; 


as  s  i  gnmen  t  5  s  t m  t  :  var  '  e»pr 

-  (orifit  f  (*  !  assi gnment Sstmt  \n");> 

!  name  ' :  =  '  expr  ' ;  ' 

-  {printfC"  I  ass i gnment Sstmt  \n");}  ; 
subProgSc a  1) $ s t mt :  name 


opt.expr.: 


=  {printfC"  !  subprogSca 1 i Sstmt  \n");>  ; 


~  {printfC"  !  opt.expr.  \  n  "  )  ;  } 


=  (printfC"  !  opt.expr.  \n");}  ; 


returnSstmt:  RETURN  opt.expr.  '?* 


=  {printfC"  !  returnSstmt  \ n "  )  ; >  ? 
fst.ELSIF. cond. THEN. seqSofSstmts.: 

=  {printfC" 

fst.ELSIF.cond.THEN.segSofSstmts.  \n  "  ) ;  } 

I  f s t . ELS  IF . cond . THE N - seqSo f $s t mt s .  ELSIF  cond 


THEN  seqSofSstmts 


{printfC" 


f s t . ELS  I F . cond . THEN . seqSo f Ss t mt s .  \n");}  } 


oot .ELSE. seqSofSstmts. 


{printfC"  !  oc t . ELSE . seqSo f $ s t m t s . 


\n");> 


!  ELSE  seqSofSstmts 
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{  d  r  i  n  t  f  ( 


opt. ELSE. seqSofSstmts 


ifSstmt:  IE  cond  THEN  seqSofSstmts 
fst. ELSIF. cond. THEN. seqSofSstwts.  op t . ELSE . seqSo f $s t m t s . 
END  IF 

-  (print f("  !  ifSstmt  \  n  "  )  J  1  ! 


f  s  t . condSex  t . : 


s  (orintf  ("  !  f s t  .  c onaSe x t  . 

!  fst  .condSext .  conaSext 


=  (orintf ("  ! 

!  f s t . condSe x t .  \n");} 

cond:  expr 

fst .condSex  t  . 

s  {printf(" 

!  cond  \nH 

);>  ; 

condSex  t  : 

AND. THEN  expr 

=  (orintf  (H 

!  condSext 

\n") ;  > 

1 

1 

OR. ELSE  exor 

=  <orintf(" 

!  condSext 

\n");>  ; 

fst  .WHEN. choice. . 1st .5. choice* .S.seqSofSstmts.  I 

=  iorjntf ("  • 

fst.  WHEN. choice.. 1st. $ . choice. .S.seqSofSstmts.  \nM);> 

;  fst. WHEN. choice.. 1st. S. choice. .i.seqSofSstmts. 

wH£N  choice  f s t . S . c h o i ce .  seaSofSstmts 

=  (or i nt  f ( "  ' 

f s t . WHEN . c ho i c e • . 1 s t . S . c h o i c e • . S • s eq$o f $ s t m t s .  \n  ) » 1  » 


OF 


caseSstmt 


CASE 


expr 


fst. WHEN. choice.. 1st. S. choice 
• ;  • 

=  <printf(M 

oot . i t  erisoec . : 

=  {or i nt  f ( M 
1  i t  e  r $  spec 

=  { o  r  i  n  t  f  ( 

loopSstrot:  oot.iterSsoec. 

=  { p  r  i  n  t  f  ( 

oot . i d . : 

=  { or i nt  f ( 

!  i  d 

=  (or i nt  f  ( 
basiciloop:  LOOP  seqSofSstmts 
=  { o  r  i  n  t  f  ( 

oot .REVERSE . : 

=  {orintf  ( 

1  REVERSE 

=  iorintf  { 

iterSsoec:  FOR  Icooioara 
=  { p  r  i  n  t  t  ( 

!  (VHILE  cond 

=  {  p  r  i  n  t  f  ( 

looDioara:  id 


$ . seqSo f Ss t m t s .  END 

caseSstmt  \n" ) ; )  ; 

oot.iterSsoec.  \n");o 

opt . i t erSspec  .  \n");> 

ba  s i c  S 1 oop 

l oooSstmt  \n"  ) ; }  ; 

opt. id.  N  n  M ) ; > 

opt . i a .  \ n " ) #  >  ; 

END  LOOP  opt . i d .  '  ;  ' 
basi c$l oop  \n"  ) ;  >  ; 

!  oot. REVERSE.  \  n  "  ) ;  } 

!  oot. REVERSE.  \n");>  ; 

IN  oot. REVERSE.  discSrange 
!  i terSspec  \n" ) ; } 

I  i  t  e  r  s  s  p  e  c  \  n  "  ) ; }  ; 


CASE 
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=  {orintfC  t  loooSpara  \n”);}  ; 

OPt . wHEN.cond. : 

=  (prirttfC"  !  opt . aHEN . c ond .  \n");> 

J  ahEN  cond 

=  (orintfC"  !  op  t  .  A  HEN  .  c  on  d  .  \n");> 

exitSstmt:  EXIT  opt. id.  oPt.AnEN.cond. 


=  <pf i n t  f ( " 

gotoSstTit!  GOTO  id  1  <  1 

=  (orintf (" 

asser  t  Sst  Tit  :  ASSENT  cond 

=  (orintf (" 

opt .useSc 1 ause .  : 

=  (printf (" 
!  useSclause 

~  (orintfC" 

f  s  t  .  dec  I  . : 

=  (orintfC" 
!  f st . dec  1  .  dec  1 

=  (orintfC" 

f  s  t . bodv  .  : 

=  (printfC" 
!  f st  .body  .  bodv 

=  (orintfC" 


i  e*  i  tistmt  \n"  )  } }  ; 


!  gotoSstmt  \n "  ) ; }  ; 


!  assert  Sstmt  \n"  )  ;  >  ; 


I  op t . useSc 1 ause .  \n");} 


!  opt. useSclause.  \n");> 


!  f  s  t .dec  1  .  \n"  )  J  > 


!  fst.decl.  \n");>  } 


J  f  s  t .body .  \n"  )  ;  o 


I  fst.body.  \n "  ) ;  I  ; 


dec  1 arat i veSoart  :  oot . useSc 1 ause 


f  s  t . dec  1 


f  s t .body 


=  {printfC"  !  dec  I arat i veSpar t  \n");}  ; 
Ooav:  opt . v i s ires t r i c t i on .  unit ibody 


=  {printfl"  ! 
unitSbody:  suoprogSbody 

=  {printfC"  ! 
1  modSspec 

=  (printf ("  ! 

!  modSbody 

=  {printfC"  ! 
op  t  .  fomal  Spar t  . : 

=  (ppintf ("  ! 

!  f  oma  I  Spart 

=  (printf ("  ! 

OPt .RETURN. typeimark.  : 

=  ( orintfl "  ! 

!  RETURN  typeimark 

=  { pr i nt  f  (  "  ! 

subproqisoec :  suboroginatgre 
OPt . RETURN. tyoeimark. 

=  {printf ("  ! 

suboroginature:  FUNCTION 

=  {printfC"  ! 

!  PROCEDURE 

=  {printfC"  ! 


body  \n"  )  ;  >  ; 

unitSbody  \n "  )  ; > 

un i t  Sbodv  \n"  )  ;  > 

unit  Sdoay  \n  "  )  ; >  ; 

OPt . forma  1 Soart  .  \n");} 

opt  .  fprma  1  ipart  .  \  n  "  )  ;  1  ! 

opt .RETURN, t yoeimark .  \n”);) 

opt .RETURN. typeimark .  \n");>  ; 

designator  opt  .  formal ioart . 

suboroaSsoec  \n");}  ; 

SubP r oqina t u r e  \n");> 

subprogSnature  \n");>  ; 
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des i gna  t  o  r :  11 

=  lopintf ("  !  designator  \  n  "  )  ;  □  i 

f s  t . $  .  pa  r a  idee  I  .  : 

=  {printf(H  !  f st  .  S . oaraidec 1  .  \n");} 

1  f st  .£  .oaraidec 1  .  paraidecl 

=  (prirti("  !  fst.S.oaraidt  1.  \n")!l  > 

formalioart:  '('  paraidecl  f s t  .  S  .  pa r aidec 1  .  ')' 


=  ( p  r  i  n  t  f  (  ! 

paraidecl:  idilist  mode 

=  {orintfC"  ! 

oo  t . I N . : 

=  <  p  r  i  n  t  f  (  " 

;  in 

-  { or i n t  f ( H 

mode :  oot . I N . 

!  OUT 

;  in  out  ; 

suborogibody :  sucprogispec 

segiotistmts  END  id  '  !  1 

-  {orintfC" 

oot.IS.declarativeioart.: 

=  (orintfC 

\  n  " ) ;  > 

!  I S  dec larativeioa 


formal ioart  \n"j;}  } 

tyoeimark  oot.i.exor. 
oar  aSdec  1  \n  "  )  ;  }  ; 

opt. IN.  \n"  )  ;  > 

oot.  IN.  \n");>  ; 


IS  declarativeioart  SEGLy 

suborogibody  \ n "  )  ;  }  ; 

!  op t . I S . dec  1  a r a t i ve Soa r t  . 


80 


{  p  r  i  n  t  t  ( 


opt . IS. dec  1 arat i v  e  Soa  r  t 


\n");>  ; 

modSsoec:  ^oainature  i  d 

opt . i d . 

=  fori nt  f ( " 
noflSnature:  PACKAGE 

=  (orintf  (" 

modSbody:  modSnature  o  0  0  Y 

id  ' ; ' 

=  {orint  f  (" 

oot.visSl  i st  .  : 

=  (orintf  (" 
!  v  i  s  5  1  i  s  t 

=  (ori nt  f ( " 
v i sSrest r i c t i on :  PEST9ICTED 
=  (ori nt  f (" 


oo t  .  IS. dec  1 arat i veSpart . 

!  modSsoec  \n" ) • >  ; 

!  modSnature  \ n ” ) ; I  ; 
id  IS  dec  1  a r a t i ve Spa r t 

!  modSbody  \n" ) ; }  ; 

!  OPt.visSlist.  \  n  M  )  ;  > 

!  opt . v  i  sSl  i  St  .  \n")  ;  >  ! 

OPt.visSlist. 

!  visSrestriction  \n");> 


f  s  t  .  S  .  name . : 

=  iorintf ("  !  tst .S.name.  \n");> 

!  fst.i.name.  name 

=  (orintf C  !  fst.S.name.  \ n "  ) ; >  ; 
visSlist:  '('  name  fst.i.name.  ')' 

=  (or  i  nt  i  (  "  !  visSlist  \  n  "  )  ;  > 

usek  I  ause:  USE  name  (st  .  J  .name. 

=  (print  f  (  "  !  useSclause  \ n "  )  ;  }  ; 


8  1 


END 


END 


APPENDIX  C 


Parse  Table 

This  Appendix  illustrates  the  output  of  the 
program  used  to  manually  interpret  YACC's  oa-se  tables, 
file  is  produced  using  the  vM  option  of  YACC. 

state  0 

Sacceot  :  «-c  omp  i  1  a  t  i  on  Sun  i  t  Send 
oot  .  v  i  s  $  r  e  s  t  r  i  c  t  i  on .  :  *■  (2) 

RESTRICTED  shift  a 
.  reduce  2 

c omp i  1  a t i onSun i t  goto  1 
oot . v i sS r es t r i c t i on .  goto  2 
vis $  restriction  goto  3 

state  1 

Sacceot  :  c  omp  i  1  a  t  i  on  Sun  i  t  «-Send 
Send  accept 
.  error 

state  2 

como i  1  a  t i on  Sun i t 

oot .vi sSrest  rict i  on  .  *-oo  t .SEPARATE,  uni tSbody 
oot .SEPARATE.  :  *  (a) 

SEPARATE  Shift  6 


YACC 

This 
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reduce  4 


oo t . SEP AR A TE  .  qoto  5 

state  3 

oot  .vi  sJrest  rict  ion.  :  v  i  $$  rest  r  i  c  t  i  on*-  (3) 

.  reduce  3 

state  4 

visirestriction  :  RES T R I C TED*oo t . v i s $ 1 i s t  . 

oot  .  v  i  s S 1  i  s t  .  :  *•  (198)  * 

C  shift  9 

.  reduce  198 

oot.visSlist.  goto  7 

visSlist  goto  8 

state  5 

como i  1  a t i on  Sun i t  :  oot.visJrestrict  ion. 

oot, SEPARATE. ►uni tSbody 

FUNCTION  shift  18 
PACKAGE  shift  17 
PROCEDURE  shift  19 
.  error 

unitSoodv  goto  10 
suoorogSbody  goto  11 
modSsoec  goto  12 
modSbody  goto  13 
suoorog$soec  goto  14 


6R 


suboroqSnat ure  goto  lb 
modSnature  goto  15 

state  b 

oot .SEPARATE.  :  SEPARATE*  (5) 

.  reduce  5 

state  7 

v i sSres  t  rt  c  t i on  5  RESTRICTED  opt . v i si H  s  t . ►  (200) 

,  reduce  200 

state  8 

oot  .  v i s$ 1 i st  .  ’  visSlist*  (199) 

.  reduce  199 

state  9 

visSHst  J  ( *  n  a  m  e  fst.S.name.  1 
id  shift  21 
.  error 
name  goto  20 

suborogiarrayivar  goto  22 
se 1 ec t edScomo  goto  23 
o r ede f i nedS a t t r i  goto  29 

state  10 

comb i  1  a  t i On  Sun i t  ’  oot.visSrestriction. 

oot . SEP AR A TE .  unitSbodv*  (1) 

.  reduce  1 

state  11 
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uni t  Sood v 


subD  roq$body«- 


(  1  72) 


.  reduce  172 

state  12 

unitSbody  :  modSspec*-  (173) 

.  reduce  173 

state  13 

unitSbody  :  modSbody*-  (174) 

.  reduce  174 

state  14 

sudoroqSbody  :  subprogSspec*  IS  dec  1 arat i veJpart  BE¬ 
GIN  segSofS stmts  ENO  id  » 

15  shift  25 

.  error 

state  15 

modSsoec  :  mod$nature«-i  d  oot  .  I  S  .  dec  I  a r a t  i  veSoa r  t  . 

END  opt .id. 

modSbody  :  modSnature«-BODY  id  IS  dec  1  arat  i  veSoart 

END  id  i 

BODY  shift  27 
id  shift  2b 
.  error 

state  lb 

suboroqSsoec  :  subp r oqSna  t  u r e*-des  i  gna t  o  r 

oot . formal ioart  .  opt . RETURN. tyoeSmark. 


Bb 


id  s  r>  i  f  t  29 


.  error 

designator  goto  28 

state  17 

modSnature  !  PACKAGE*  (196) 

.  reduce  196 

state  16 

sucorogSnat ure  I  FUNCTION*  (180) 

.  reduce  180 

state  19 

suborogSnat  ure  5  PROCEDURE*  (181) 

.  reduce  181 

state  20 

se  1  ec t eaScomp  •  name*,  id 
predef i nedSat t r i  :  name*’  id 

sueorogJarrayivar  :  name*(  expr  fst.S.exor. 

visSiist  :  (  name* f s t . 5 . name .  ) 

f  st . 5 .name .  :  *  (201) 

(  shift  32 
.  shift  30 
’  shift  31 
.  reduce  201 
fst.S.name.  goto  33 

state  21 
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name 


(53) 


i  d«* 

.  reduce  58 

state  22 

name  :  subprogSar  ray  $var«-  (59) 

.  reduce  59 

state  21 

name  :  se  1  ec  t  edic  omp«-  (60) 

.  reduce  60 

state  29 

name  :  p  r  ede  f  i  neflia  1 1  r  i  *■  (61) 

.  reduce  61 

state  25 

suborogSbody  :  subprogSspec  IS«-dec  1  arat  i  veSoart  BE 
GIN  seqSofSstmts  END  id  ’• 

opt  •  useSc  1  ause .  :  *■  (169) 

USE  shift  37 

.  reduce  169 

oot . useSc 1 ause  .  goto  35 

useSclause  goto  36 

dec  1 arat i veSpart  goto  39 

state  26 

modSsoec  :  modSnature  i  d«-opt  .  I S  .  dec  1  ar  a  t  i  veSpa  rt 

END  opt . i d . 

op  t  .  I  S  .  dec  1  a  r  a  t  i  veSpa  r  t  .  :  «-  (193) 


IS  shift  39 
.  reduce  193 

oot . IS. dec  1 arat i veSpart .  goto  38 

state  27 

modSbodv  :  modSnature  800r*-id  IS  dec  1  arat  i  veipart 

END  id  ; 

id  shift  80 
.  error 

state  28 

subproqSscec  :  subprogSnat ur e 

designator^oPt.formalSoart.  oot. RETURN. typeSmark. 
oot  .  formal  Scart .  :  *■  1175) 

(  shift  8 3 

.  reduce  175 

opt . formal Spart .  goto  81 

f ornal Soart  goto  82 

state  29 

designator  :  i  d«-  (182) 

.  reduce  182 

state  30 

se  1  ec  t  edScomD  :  name  .«-id 
id  shift  84 
.  error 

state  31 


89 


r 


orede  f  i  nedSat  t  r  i  :  name  1  «•  i  d 
id  shift  ^5 
.  error 

state  32 

subproglarraySvar  t  name  (*,e*Dr  fst.S.expr.  ) 
opt  •  un  a  r  y  Sop  •  c  *■  (81) 

NOT  shift  53 
+  shift  51 
-  shift  52 
.  reduce  81 
exp r  goto  46 
simoIeSexpr  qoto  48 
rel  goto  47 
opt .unarySoP.  goto  44 
unarySop  goto  50 

state  33 

fst.S.name.  :  f  s  t  .  S  .  name  .  *•  t  name 
visSlist  :  (  name  f  s  t  .  S  .  n  ame  .  *• ) 

)  shift  55 
,  shift  54 
.  error 

state  34 

subo  rog5body  ;  suborogSsoec 

declarativeSoart«-8EGIN  seoSofJstmts  END  id  ; 


IS 


90 


1 


BEGIN  shift  56 

.  error 

state  35 

dec  1 arat i veSoart  :  op t  .  use$c  )  ause  . «■  f  s  t  .  oec  1  . 

f  s  t . body . 

f  s t  .dec  1  •  :  *■  (16b) 

.  reduce  leb 
f st .dec  I •  goto  57 

s  t  a  t  e  3b 

opt  .useSc  !  ause .  :  useSclause*-  (165) 

.  reduce  lb5 

s  t  a  t  e  3  7 

use  Sc  1 ause  !  uSE^name  fst.S.name. 
id  shift  21 
.  error 
name  got  o  58 

s udd r ogS a r r a v S v a r  qoto  22 
se 1 ec t edScomp  goto  23 
p r ede f i n ed $ a t t r i  goto  24 

state  38 

modSsoec  :  modSnature  1 

oDt  .IS. dec  1  arat  i  ve$Da  r  t  .♦■END  oot  .  i  d. 


END  shift  59 


formalioart  :  (*-oara$decl  f st  .  S  .oaraSaec 1  . 
id  shift  oft 
.  error 

idSlist  goto  65 
paraSdecl  goto  64 

state 

se 1 ec t ed$c omp  :  name  .  i  d«-  (62) 

.  reduce  b2 

state  45 

oredef i nedSat t r i  :  name  *  i  d**  (63) 

.  reduce  63 

state  4p 

sudo r ogS a  r  r  a  v S  v a r  :  name  (  e xor *•  f  s  t .  3  .  e xo  r  . 

expr  :  exor«-)oo$oo  re) 
fsr.i.expr.  :  «■  (b7) 

AND  shift  64 
OR  shift  70 
XOR  shift  71 
.  reduce  b7 
fst.S.exor.  goto  o7 
1 og$oo  goto  68 

state  47 

expr  :  re  1 «-  (80) 


reduce  80 


state  49 


re  1 

:  s  i  mp  1  e  Se  x  p  r«-op  t  .  r  e  !  a  1  Soo 

. s i mp 1 e  $e  x  p  r  . 

re  1 

:  s  i  mpl  e$expr«-opt  .  NOT  . 

IN 

range 

re  1 

:  simpleSexpr^opt .NOT. 

IN 

tyoeJmark  oot.constr. 

ODt 

. r e 1  a  1  Sod . s i mp i e Sexp r  .  : 

«- 

(70) 

oot 

.NOT.  :  <-  (72) 

IN 

reauce  72 

NOT 

shift  75 

/? 

sh i f  t  7  7 

<  : 

shift  79 

>  = 

shift  81 

=  shift  76 
<  shift  78 
>  shift  80 
.  reduce  70 

oot . re  1  a  1 Soo . s i mp 1 ele xd r  .  goto  72 
re  1  a  1  Sod  goto  74 
od  t . NO  T  .  goto  73 

state  4 9 

simoleSexor  :  oo  t  .  una  r  v  Sod  .  ►  t  e  r  m  f  s  t  .  add  i  ngSop  .  t  e  n  . 
id  shift  21 

num  shift  8  9 

cnarSstr  shift  90 
(  shift  9  1 


94 


error 


name  got  o  8  7 
lit  goto  85 
agg  r  go  to  Bo 
p  r  i  go  to  8  a 

s uoo r og $ a r r ay 5 v a r  goto  22 
selecteaicomo  goto  23 
oredef inedSatt ri  goto  2a 
var  goto  80 
ter'n  goto  02 
f  ac  goto  8  3 


state  30 


state  51 


oot  .unarySoo.  :  unarySoo- 

.  reduce  82 

unarySoo  :  UOb) 

.  reduce  10b 


state  52 


unarvloo  J  (107) 

.  reduce  107 


state  53 


unaryioo  :  NOT-  HOB) 

.  reduC  e  1  OB 


•  *  a  ►  *  *"»  4 


=>5 


(02) 
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NL 


JNCLASSIFIED 


fst.S.name,  :  fst.S.name.  .♦•name 
id  shift  21 
.  error 
name  goto  92 

subprogSar raySvar  goto  22 
selectedScomp  goto  23 
predef i nedSat t r i  goto  24 

state  55 

visSlist  :  (  name  fst.S.name.  )♦• 

.  reduce  203 

state  56 

suborogSbodv  :  suborogSspec  IS 

BEGIN«-seq$of  Sstmt  s  END  id  i 

f  st  .stmt .  :  *■  (112) 

,  reduce  112 
fst.stmt.  goto  94 
seqSofSstmts  goto  9J 

state  57 

fst.decl.  :  f  st  .dec  1  .*dec  1 
dec 1 arat i veSoar t  : 

fst.decl  .♦•fst.body. 

fst.body.  :  ♦*  (168) 

error  shift  99 


(203) 


dec  1 arat i veSoart 


opt . useSc 1 ause . 


TYPE  shift  101 


id  shift  66 


.  reduce  lo8 
dec  1  goto  95 
objSdecI  goto  97 
tyDeSdecl  goto  98 
idSlist  goto  100 
fst.body.  goto  96 

state  58 

sel ectedScomp  :  name*-,  id 
orede f i nedSat t r i  :  name*1  id 

suborogSarraySvar  :  name*-(  e»pr  fst.S.expr.  ) 
useSc  I  ause  :  USE  name*-fst  .S.name. 
f  St  .S.name.  5  (201  ) 

(  shift  32 
.  shift  30 
'  shift  31 
.  reduce  201 
f st .S.name.  goto  102 

state  59 

modSsoec  :  modSnature  id  opt . IS. dec  1 arat i veSpart . 

END*-oot  .id. 

oot  .id.  :  *■  (151) 

id  shift  104 
.  reduce  151 
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oot.id.  goto  103 


state  60 

oot .  I S  .dec  larativeSpart.  :  IS  dec  1 arat i veSpart* 

(194) 

.  reduce  194 

state  61 

modSbody  :  modSnature  BODY  id  IS*dec  1  a  rat  i  veSpart 

END  id  ; 

opt .use$c 1 ause •  s  *  (164) 

USE  shift  37 

.  reduce  164 

opt .useSc 1 ause •  goto  35 

useSdause  goto  36 

dec  1 arat i veSpart  goto  105 

state  62 

suborogSspec  :  subprogSnature  designator 

oot.formalSpart.  opt .RETURN. t yoeSmark  .*  (179) 

.  reduce  179 

state  63 

oot  .RETURN.  tyoeSmark.  :  RE  TURN*t  ypeSmar  k 
id  shift  21 
.  error 

typeSmark  goto  106 
name  goto  107 


subprogSar ray Svar  goto  22 
se 1 ec t edScomp  goto  23 
prede fi nedSat t r i  goto  2 a 

state  64 

formalSpart  :  (  paraSdec 1 **f st . $ .paraSdec 1 .  ) 

f st . S .paraSdec 1  .  :  *■  (163) 

.  reduce  183 

f st .S. paraSdec I  .  goto  108 

state  b5 

paraSdecl  :  idSlist**:  mode  typeSmark  oot.S.expr. 
:  shift  104 

.  error 

state  6b 

idSlist  :  i  d**f  st  .S .  i  d. 
fst.S.id.  :  «■  (14) 

.  reduce  14 
fst.S.id.  goto  110 

state  b 7 

fst.S.expr.  :  f st .S.exor.**r  expr 

suborogSar  r  ay  Svar  :  name  (  expr  fst.S.expr.**) 

)  shift  112 
,  shift  111 
.  error 

state  68 


99 


expr 


expr  log$op*rel 


opt  .unary $op .  :  *  (81) 

NOT  shift  53 
+  shift  51 
-  shift  52 
.  reduce  81 
simpleSexpr  goto  48 
rel  goto  1 1  3 
opt .unarySop .  goto  49 
unarySop  goto  50 

state  69 

logSop  :  AND*  (94) 

.  reduce  94 

state  70 

1 ogSoo  :  OR*  (95) 

.  reduce  95 

state  71 

JogSop  :  XOR*  (96) 

.  reduce  96 

state  72 

rel  :  simpleSexpr  opt . rel a l Sop. s i mp 1 eSexpr .* 
.  reduce  76 

state  73 

rel  :  simpleSexpr  opt.N0T.*IN  range 


(76) 


100 


ret  :  simpleSexpr  opt.NOT.eIN  typeSmaric  opt.constr. 
IN  shift  114 
.  error 

state  74 

opt .rei al Sop.si mpl eSexpr .  :  re  I  a  l  $op«*si  mpl  eSexpr 
opt .unarySop.  :  «■  (81) 

NOT  shift  53 
♦  shift  51 
-  shift  52 
.  reduce  81 
simpleSexpr  goto  115 
OPt .unarySop.  goto  44 
unarySoo  goto  50 

state  75 

opt. NOT.  :  NOT*  (73) 

.  reduce  73 

state  76 

relalSop  i  =«*  (47) 

.  reduce  97 

state  77 

rel al Sop  :  /se  (98) 

.  reduce  98 

state  78 

relalSop  :  <+■  (99) 


101 


reduce  99 


state  79 

re  1  a  1  $oo  :  <=*■  (100) 

.  reduce  100 

state  80 

re  1  a  1  Sod  :  >«-  (101) 

.  reduce  101 

state  81 

relalSop  :  >=♦■  (102) 

.  reduce  102 

state  82 

simoleSexpr  :  opt .unarySop.  term«-f  st .  addi  ngSop.  term . 
t s t . add i ngSop . t erm ,  :  (83) 

.  reduce  83 

fst .addi ngSop . term,  goto  116 

state  83 

term  :  f  ac*-f  s t . mu  1 1  Sod .  f  ac . 
f st .mul t$0D. f ac .  J  *•  (86) 

.  reduce  86 

f st .mul tSop. f ac  .  goto  117 

state  8a 

fac  :  pri*  (89) 

.  reduce  89 


state  85 


pri  :  1  i  t*-  (90) 

.  reduce  90 

state  86 

pri  :  aggr«-  (91) 

.  reduce  91 

state  87 

sel  ectedScomp  :  name*",  id 
predef i  nedSat  t  r  i  :  name*-'  id 
var  :  name*-.  ALL 

subProgSar ray Svar  :  name*-(  expr  fst.S.expr.  ) 
pri  :  name*-  (92) 

(  shift  32 
.  shift  118 
'  shift  31 
.  reduce  92 

state  88 

pri  :  var*  (93) 

.  reduce  93 

state  89 

lit  J  num*  ( 69 ) 

.  reduce  69 

state  90 

lit  :  charSst  r«*  (65) 

.  reduce  65 
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state  91 


aggr  :  («-comp$assoc  f  st .  $ .compSassoc  .  ) 

OTHERS  shift  123 

id  shift  21 

num  shift  89 

char $st  r  shift  90 

(  shift  91 

.  error 

typeSmark  goto  125 
name  goto  124 
lit  goto  85 
discSrange  goto  122 
compSassoc  goto  119 
aggr  goto  86 
restrSchoice  goto  120 
pri  goto  121 

subprogSarraylvar  goto  22 
sel ectedScomp  goto  23 
predef i nedSat t r i  goto  24 
var  goto  88 

state  92 

sel ectedScomp  :  name*,  id 
predef i nedSat t ri  :  name*'  id 

suborogSarray Svar  :  name*-(  expr  fst.S.expr.  ) 


104 


A 


fst.S.name.  :  fst.S.name.  »  name*-  (202) 

(  shift  32 
.  shift  30 
•  shift  31 
.  reduce  202 

state  93 

suborogSbody  :  suborogSsoec  IS  dec  1 arat i veSpart  BE¬ 
GIN  seqSof  Sstmt  s*-EN0  id  # 

END  shift  126 
.  error 

state  9a 

fst.stmt.  :  f  St  .Stmt  .*-Stmt 

seqSofSstmts  :  fst.stmt.*-  (114) 

opt .  i  terSspec  .  :  *-  (148) 

error  shift  131 

ASSERT  shift  147 

CASE  shift  149 

EXIT  shift  144 

FOR  shift  152 

GOTO  shift  146 

IF  shift  148 

LOOP  reduce  148 

NULL  shift  138 

RETURN  shift  145 
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rfHILE  shift  153 


id  shift  21 
<<  shift  130 
.  reduce  1 1  a 
name  goto  143 
suborog$array$var  goto  22 
se 1 ec t edScomp  goto  23 
prede f i ned$at t r i  goto  24 
var  goto  142 
stmt  goto  127 
simoleSstmt  goto  128 
CompoundSstmt  goto  129 
ass i gnment Ss t mt  goto  132 
suborogScall Sstmt  goto  133 
exitSstmt  goto  134 
returnSstmt  goto  135 
gotoSstmt  goto  136 
assertSstmt  goto  137 
i f Sstmt  goto  139 
caseSstmt  goto  140 
loooSstmt  goto  141 
opt . i t erSspec .  goto  150 
iterSspec  goto  151 


state  95 


10b 


fst.decl.  :  fst.decl.  oecl«-  (167) 

.  reduce  167 

state  96 

fst.body.  :  f  s  t ,  body  .  «-body 

dec  1 arat i veSpar t  :  oot .useSc 1 ause.  fst.decl. 

f  s t  .body  . *■  (170) 

opt . v i s $ r es t r i c t i on  .  :  *-  (2) 

BEGIN  reduce  1 70 
END  reduce  170 
RESTRICTED  Shift  a 
.  reduce  2 

oPt.visSrestriction.  goto  155 
visSrest fiction  goto  3 
body  goto  159 

state  97 

dec  1  !  objSdecl*-  (6) 

.  reduce  6 

state  98 

decl  :  tyoe$decl«-  (7) 

.  reduce  7 

state  99 

decl  !  error*-; 

;  shift  156 
.  error 


107 


state  100 


objSdecl  i  i  d$l  i  st*:  oot  .CONST  ANT  .  type  oot.S.expr. 

f 

:  shift  157 

.  error 
state  101 

tyoeSdecl  :  TYPE*id  IS  typeSdefn  ; 
id  shift  158 
.  error 
state  102 

fst.S.name.  :  f  s  t  .  $  .  name .  *  •  name 
useSclause  :  USE  name  fst.S.name.*  (204) 

,  shift  54 
.  reduce  204 
state  103 

modSsoec  :  modSnature  id  opt . IS. dec  1 arat i veSoart  . 
END  opt . i d . *  (195) 

.  reduce  195 
state  104 

opt. id.  :  id*  (152) 

.  reduce  152 
state  105 

modSbodv  :  modSnature  BODY  id  IS 

dec  1 arat i veSoart*ENO  id  » 


108 


END  shift  159 


.  error 
state  10b 

oot  .RETURN .  t  yoeSma  r  k  .  :  RETURN  typeSmark*-  (178) 
.  reduce  178 
state  107 

tyDeSmark  :  name*-  (22) 
se 1 ec t edScomp  :  name*-,  id 
predef i nedSat t r i  :  name*-'  id 

subProgSar raySvar  :  name*-(  expr  fst.S.expr.  ) 

(  shift  32 
.  shift  30 
*  sh i f  t  31 
.  reduce  22 
state  108 

f  st  .S.paraSdec  1  .  :  f  s  t .  $  .pa  raSdec  1  .  *- »  oaraSdecl 
formaJSpart  :  (  paraSdecl  f  s  t  .  $ .  pa  r  aidec  1  .  *- ) 

)  shift  161 
,  shift  1 60 
.  error 
state  109 

paraSdecl  :  idSlist  :*mode  typeSmark  opt. $. expr. 
opt. IN.  :  (107) 

IN  shift  165 


109 


OUT  shift  164 


state 


state 


state 


(69) 


.  reduce  187 
mode  goto  162 
opt. IN.  goto  163 
110 

fst.S.id.  :  fst.S.id.**  id 
idSlist  I  id  fst.S.id. *  (16) 

*  shift  166 
.  reduce  16 

1  1  1 

fst.S.expr.  :  fst.S.expr.  **expr 
opt  .unary Sop .  :  *  (81) 

NOT  shift  53 

♦  shift  51 
-  shift  52 

.  reduce  81 
expr  goto  167 
simoleSexpr  goto  48 
rel  goto  47 
OPt .unarySoP.  goto  49 
unarySop  goto  50 
112 

subprogSar r ay Svar  :  name  (  expr  fst.S.expr.  )*• 


110 


reduce  69 


state  113 

expr  :  expr  logSop  re1«-  (79) 

.  reduce  79 
state  1 14 

rel  :  simpleSexpr  opt. NOT.  IN^range 

rel  :  simpleSexpr  opt. NOT.  IN«-tyoeSmark  opt.constr. 
id  shift  171 
num  shift  89 
charSst  r  shift  90 
.  error 

typeSmark  goto  169 
name  goto  107 
range  goto  168 
rangeiio  goto  170 
1 i t  goto  1 72 

suborogSar ray Svar  goto  22 
se 1 ec t edScomo  goto  23 
prede f i nedSa t t r i  goto  24 
state  115 

oot .  re  1  a  1  Sop .  s  i  mp  I  e  Se  xp  r .  :  relalSop  s  i  mp  l  eSexor*- 

(71  ) 

.  reduce  71 


state  1 1 6 


fst.addingSop.term 


f  st  .addi  ngSoo.  term.«*addi  ngSop 


term 


s  i  mp 1 eSexpr 
f  st  . addi  ngSoo.  term. 

&  shift  176 
♦  shift  17a 
-  shift  175 
.  reduce  85 
addingSop  goto 


(85) 


173 


opt  .unarySop. 


term 


state  117 

fst.multSoo.fac.  :  f  st  .mu  1  t  Sop .  f  ac  .«*mu  1  t  Sop  fac 
term  :  fac  fst.multSoo.fac.*-  (88) 

MOD  shift  180 
*  shift  178 
/  snxfu  17*) 

.  reduce  88 
multSoo  goto  177 


state  118 

se  1  ect edScomp  :  name  .*-id 
war  :  name  .*-ALL 
ALL  shift  181 
id  shift  aa 
.  error 
state  1 1 9 


1 1 2 


state 


state 


state 


state 


aggr  :  (  comoSassoc**  s t .  $ .comoSassoc  .  ) 

f  St  .  S.comoSassoc  .  :  *  (41) 

.  reduce  41 

f st .S.comoSassoc .  goto  182 
120 

comoSassoc  :  rest  rSchoi  ce*f  st .  S.choi  ce.  => 
f st . S .cho i ce.  :  ►  (44) 

.  reduce  44 
f s t . S . c no i ce .  goto  183 
121 

comoSassoc  :  or  i  *oot ..  1  st  .$  .choi  ce  ..S.  exor 
oDt . .  1  st .  S .cho i  ce. . $ . exor .  :  *  (46) 

f  s t . $ .c ho i  ce .  :  *  (44) 

)  reduce  46 
t  reduce  46 
.  reduce  44 
fst.S.cnoice.  goto  185 
oot . . 1 st . S .cho i ce  .  . S  .  exor  .  goto  184 
122 

restrSchoice  :  discSrange*  (50) 

.  reduce  50 
123 

restrSchoice  :  OTHERS*  (5q) 

.  reduce  51 


exor 


113 


state  124 


tyoelmark  :  name*-  (22) 
se 1 ectedScomp  :  name*,  id 
prede fi nedSat t r i  :  name*'  id 
var  :  name* .  ALL 

subprogSarrayivar  :  name*>(  expr  fst.S.expr.  ) 
pri  :  name*"  (42) 

RANGE  reduce  22 
(  shift  32 
.  Shift  118 
*  shift  31 
.  reduce  42 
state  125 

discSrange  :  t yoeSmar k«-R ANGE  range 
RANGE  Shift  1 8to 
.  error 
state  12b 

suborogSbody  :  subprogSspec  IS  dec  1 arat i veSpart  ttE 
GIN  seqiof  Ssfnt  s  END«-id  / 
id  shift  187 
.  error 
state  127 

fst.stmt.  :  fst.stmt.  stmt*-  (113) 


reduce  1  1  3 


state  128 


stmt  :  s  i  mp  I  e$s  t  mt  (115) 

.  reduce  115 
state  129 

stmt  :  compoundSstmt*  (116) 

.  reduce  116 
state  130 

stmt  :  <<*i  d  >>  Stmt 

id  shift  188 
.  error 
state  131 

stmt  :  error*; 

;  shift  189 
.  error 
state  132 

simDleSstmt  1  ass i gnmen t S s t m t * 

.  reduce  119 
state  133 

simplelstmt  :  subprogScall Sstmt* 

.  reduce  120 
state  134 

simpleSstmt  :  exitSstmt*  (121) 
.  reduce  121 


(119) 


(120) 


state  135 


s i mo 1 eSs t  mt 


returnSstmt* 


(122) 


.  reduce  122 
state  13b 

simpleistmt  •  gotoSstmt* 

.  reduce  123 
state  137 

simpleistmt  :  assert  Sstmt*- 

.  reduce  124 
state  138 

simp!  elstmt  •  NULL*") 

;  shift  1<?0 
.  error 
state  139 

compoundlstmt  :  iflstmt** 

.  reduce  126 
state  196 

comooundSstmt  :  caselstmt* 

.  reduce  127 

state  191 

comoouodSstmt  :  looplstmt*- 

.  reduce  128 

state  192 


(123) 


(124) 


(126) 


(127) 


(128 


assigrimentlstmt 

;?  shift  l 9 1 


va  r«-:=  « 


r  f 


error 


state  143 

sel ec t edScomp  :  name*-,  id 
predef i nedSat t r i  J  name*1  id 
var  :  name**.  ALL 

suborogSarray Svar  :  name*-C  expr  fst.S.expr. 
ass i gnment $stmt  :  name*:1  expr  } 
subprogScal 1 Sstmt  :  name*-; 

:  -  shift  192 
;  shift  193 
(  shift  32 
.  shift  118 
'  sh i f  t  31 
.  error 
state  144 

exitSstmt  :  EX  I  T*oot . i d .  oPt .flHEN.cond.  } 
ODt  .id.  :  «■  (151) 

id  shift  104 
.  reduce  151 
oPt .id.  goto  1 94 
state  145 

returnSstmt  :  RETURN*op t . e*D r  .  } 
oot. expr.  :  «■  (132) 

OPt  .unarylop.  :  «•  (81) 


117 


NOT  shift  53 


state 


state 


;  reduce  132 
♦  shift  51 
-  shift  52 
.  reduce  81 
expr  goto  196 
simoleiexpr  goto  98 
rel  goto  47 
opt .unarySoP.  goto  49 
unarySoo  goto  50 
oot.expr.  *  goto  195 

146 

gotoSstmt  !  GOTOeid  ; 
id  shift  197 
.  error 

147 

assertlstut  :  ASSERT«-cond 
opt  .unaryiop.  :  *■  (81) 

NOT  shift  53 
♦  shift  51 
-  shift  52 
.  reduce  81 
exor  goto  199 
simoleSexpr  goto  48 


118 


rel  goto  47 
opt . unary Sop .  goto  49 
unarySop  goto  50 
cond  goto  198 
state  146 

ifSstmt  :  IF^cond  THEN  seq$o f $s t mt s 

fst.ELSIF. cond. THEN. seqSofSstmts.  opt. ELSE. seqSofSstmts.  END 
IF  ; 

opt  .  unary  Sop  .  :  *■  (81) 

NOT  shift  53 
+  shift  51 
-  shift  52 
.  reduce  81 
expr  goto  199 
simoleSexpr  goto  48 
rel  goto  47 
opt .unary Sop.  goto  49 
unarySop  goto  50 
cond  goto  200 
state  149 

caseSstmt  :  CASE«-expr  OF 

f st .WHEN .cho i ce . . 1 st . $ .choi ce . , S . seqSo f Sst mt s .  END  CASE 
opt  .unarySop .  :  «■  (81) 

NOT  shift  53 


119 


♦  shift  51 


state 


state 


state 


state 


-  shift  52 
.  reduce  81 
expr  goto  201 

s i mo l eSexor  goto  48 
rel  goto  47 
opt .unaryioo.  goto  49 
unarySop  goto  50 

150 

loooSstmt  :  oot.iter$soec.«-basicSlooP 
LOOP  shift  203 
.  error 

basicSloop  goto  20 2 

151 

opt .  i  terSspec  .  :  iterSspec*-  (149) 

.  reduce  149 

152 

iterJsoec  :  FOR*- 1  oopSoa ra  IN  opt. REVERSE.  discSrange 
id  shift  205 
.  error 

loooSoara  goto  204 

153 

iterSsoec  :  «HlLE*-cond 
OPt  .unary  $oo  .  5  *•  (81) 


120 


NOT  shift  53 


♦  shift  51 
-  shift  52 
.  reduce  81 
expr  goto  199 
simoleSexpr  goto  98 
rel  goto  97 
oot . una ry $op  .  goto  99 
unarySop  goto  50 
cond  goto  206 
state  159 

fst.body.  :  fst.body.  body*-  (lb9) 

.  reduce  169 
state  155 

body  :  oot  .  v  i  sSrest  r  i  c  t  i  on  ,*-un  i  t  Sbody 
FUNCTION  shift  18 
PACKAGE  shift  17 
PROCEDURE  shift  19 

.  error 

unitSbody  goto  207 
suborogSbody  goto  11 
modSspec  goto  12 
mooibody  goto  13 
suborogSsoec  goto  19 

121 


suborogSnature  goto  16 
modSnature  goto  15 


state 


state 


state 


state 


END*  i  d 


state 


156 

dec  1  :  error#*  C  8 ) 

.  reduce  8 

157 

ob j Sdec I  !  idSlist  :  *opt . CONS T ANT . 
OD t . CONST AN T .  :  *  (9) 

CONSTANT  shift  209 
.  reduce  9 

oot . CONS T ANT  .  goto  208 

158 

tyoeSdecl  :  TYPE  id*IS  tyoeSdefn  } 
IS  shift  210 
.  error 

159 

modSbody  :  modSnature  BODY  ia  IS 

9 

id  shift  211 
.  error 
1  60 

f st .S.paraSdec 1  .  :  f s t . $ . oa r a Sdec 1 
id  shift  66 
.  error 


t  yoe  opt . S .expr  . 


dec  1 arat i velpart 


.  #*paraSdecl 


122 


state 

(185) 

state 


state 

state 

state 


i  d$  1 i st  goto  o5 
paraSdecl  goto  212 
Ibl 

formalSpart  :  (  paraSdecl  f s t  .  S  .par aSdee 1 .  )* 

•  reduce  185 
162 

paraSdecl  :  idSlist  :  mode*t ypeSmark  OPt.S.expr. 
id  shift  21 
.  error 

typeSmark  goto  213 
name  goto  107 
sudorogSarraySvar  goto  22 
se l ec t edScomp  goto  23 
predef i nedSat t r i  goto  24 
lb3 

mode  :  opt.lN.*  (189) 

.  reduce  189 

164 

mode  :  OU  T  *  (190) 

.  reduce  190 

165 

OPt. IN.  :  IN*  (188) 
mode  :  IN*0UT 


123 


OUT  shift  219 


.  reduce  188 
state  166 

fst.S.id.  :  fst.S.id.  #«*id 
id  shift  215 
.  error 
state  167 

fst.S.expr.  :  fst.S.expr.  ,  expr4*  (68) 
expr  :  expr^logSop  rel 
AND  shift  69 
OR  shift  70 
XOR  shift  71 
.  reduce  68 
logSop  goto  68 
state  168 

rel  !  simpleSexor  opt. NOT.  IN  range4*  (77) 

.  reduce  77 
state  169 

rel  5  simoleSexpr  opt, NOT.  IN  t  yoeSma  r  k«-opt  .const  r  , 
opt.constr.  :  «*  (79) 

RANGE  shift  219 
.  reduce  79 
constr  goto  217 
rangeSconstr  goto  218 


129 


oot .const  r 


got  o  216 


state  170 

range  :  rangeSid*-.. 

..  shift  220 
.  error 


si  op! e$e*or 


state  171 


rangeSid  s  i  d«- 
name  5  i  d* 

. .  reduce  27 
=>  reduce  27 
J  reduce  27 
.  reduce  58 


(27) 


(58) 


state  172 

rangeSid  :  lit* 

,  reduce  28 


(28) 


state  173 

fst. addingS op. tero. 


fst.addingSop.term. 


addinqSop*-term 

id  shift  21 
num  shift  89 
charSstr  shift  90 
(  shift  91 
,  error 


name  goto  87 


lit  goto  85 
aggr  goto  86 
pri  goto  84 

suborogSar ray Svar  goto  22 
se 1 ect edScomp  goto  23 
predef i nedSat t r i  goto  24 
var  goto  86 
term  goto  221 
fac  goto  83 
state  1 74 

addingSop  :  +  «-  (103) 

.  reduce  103 
state  175 

addingSop  :  (104) 

.  reduce  104 


state  1 7o 

addingSop  ;  (105) 

.  reduce  105 


state  177 

f st .mu  1 1 Sop . f ac .  :  f st .mul t Sop. f ac  . 
id  shift  21 
num  shift  89 
charSstr  shift  90 
(  shift  91 


126 


mu  1 1  $op«-f  ac 


.  error 
name  goto  87 
lit  go to  65 
aggr  goto  86 
pri  goto  84 

subprogSarray $var  goto  22 
se 1 ec t edScomp  goto  2 3 
prede* i nedSat t r i  goto  24 
var  goto  88 
♦ac  goto  222 
state  178 

mu  I t  Sop  ;  **  (109) 

.  reduce  109 

st  at  e  1 79  i 

i 

mu  1 1 Sop  J  /*  (110) 

.  reduce  110 
state  180 

multSoo  :  MOD*  (111) 

.  reduce  111 
state  181 

var  :  name  .  ALL*  (66) 

.  reduce  66 
state  182 

f st  .S.comoSassoc  .  ;  f s t . $ . compSassoc . */  compSassoc 

127 


aggr  :  (  comoSassoc  f st .S.compSassoc .*) 

)  shift  22a 
,  shift  223 
.  error 
state  183 

f s t . I . c ho i ce .  :  f st .$. choice.*'  choice 

comoSassoc  :  restrSchoice  f  s  t .  S .  c  ho  i  ce  .♦•  =  >  expr 
->  Shift  22 6 
!  shift  225 
.  error 
state  184 

comoSassoc  :  ori  00 1  .  .  1  s  t  .  S  .c  ho  i  ce  . .  S .  expr .  «*  (49) 

.  reduce  49 
state  185 

f  st .  S.cho  i  ce .  :  f  st .  $  .choi  ce  .♦• !  choice 
oot ..  1  st  .$  .choi  ce ..  S . expr .  :  f  st  .S.choi  ce.«-?>  expr 
=>  shift  227 
!  shift  225 
.  error 
state  186 

discSrange  :  typeSmark  RANGE*range 
id  shift  229 
num  shift  89 
charSstr  shift  90 


128 


error 


range  goto  228 
rangeSid  goto  170 
lit  goto  172 
state  187 

suoprogSbody  :  subbrogSspec  IS  dec  1 arat i veSpar t  8E- 
GIN  seqSofSstmts  END  id*-; 

;  shift  230 
.  error 
state  188 

stmt  :  <<  id*->>  stmt 

>>  shift  231 
.  error 
state  189 

stmt  :  error  }*•  (118) 

*  reduce  1  1 8 
state  190 

simDleSstmt  :  NULL  >*■  (125) 

.  reduce  125 
state  191 

ass i  gnmen t  Ss t mt  :  var  ;=*-e*pr  ; 
opt  .unarySop.  :  «■  (81) 

NOT  shift  53 

♦  shift  51 


129 


sn  i  f  t  52 


state 


state 


state 


.  reduce  61 
expr  goto  232 
simoleSexpr  goto  48 
rel  goto  47 
opt .unarySoo.  goto  49 
unarySod  goto  50 

192 

assi  gnment  Sstmt  ;  name 

opt . una r y $op •  t  *"  (81) 

NOT  sn  i  f  t  53 

♦  shift  51 

-  shift  52 

.  reduce  81 

expr  goto  233 

simoleSexpr  goto  48 

rel  goto  47 

oot . unary Sop .  goto  49 

unaryloP  goto  50 

193 

suborogScal 1 Sstmt  :  name 
.  reduce  131 

194 

exitlstmt  :  EXIT  opt. id. 


►exp r  ; 


;►  (131) 


►OPt .rtHEN.cond.  i 


130 


opt  .WHEN. cond.  :  *■  (159) 

WHEN  shift  235 
.  reduce  159 
opt .WHEN. cond.  goto  239 
state  195 

returnSstmt  :  RETURN  oot.expr.*-; 
;  shift  236 
.  error 
state  196 

expr  J  expr*-loq$oo  rel 
opt.exor.  :  expr*  (133) 

AND  shift  69 
OR  shift  70 
XOR  shift  71 
.  reduce  133 
logSoo  goto  68 
state  197 

gotoSst'T't  1  GOTO  id*-? 

;  shift  237 
.  error 
state  198 

assertSstmt  :  ASSERT  cond*; 

;  shift  238 
.  error 


131 


state  199 


exor  :  expr«-logSop  rel 
cond  :  exp  re f s t . condSex t . 
fst .condSext .  :  «■  (laO) 

AND  shift  69 
OR  shift  70 
XOR  shift  71 
.  reduce  190 
logSoc  goto  b8 
f st .condSext .  goto  239 
state  200 

ifSstmt  :  IF  cond«-THEN  seqSofSstmts 

fs t . ELSIF .cond. THEN . seqSof $s t ot s  .  oot . ELSE . seqSo f Ss t mt s .  END 
IF  ; 

THEN  shift  290 
.  error 
state  201 

exor  :  expr^logSop  rel 

caseSstmt  :  CASE  exor«-0F 

f st .WHEN . c ho i ce .. 1 st .$. cho i ce .. S . seqSo f 1st mt s  .  END  CASE 


AND 

shift 

t>9 

UF 

shift 

291 

OR 

shift 

70 

XOR 

shift 

71 

132 


r 


.  error 
1 ogSoo  goto  68 
state  202 

loopSstmt  :  opt . i terSspec  .  basicSlooP* 
.  reduce  ISO 


(ISO) 


state  203 

basicSloop  :  LOOP^seoSo f Sst mt s  END  LOOP  opt. id.  * 
fst.stmt.  :  *■  (112) 

.  reduce  112 
fst.stmt.  goto  9a 
seqSofSstmts  goto  242 


state  204 

iterSsoec  :  POP  1  oopSoara»"lN  opt  .  REVERSE  .  discSrange 
IN  s  n  i  f  t  243 
.  error 
state  205 

I  oooipara  :  id*1  (158) 

.  reduce  158 


state  20b 

i  terSspec  :  WHILE  cong«-  (157) 

.  reduce  157 
state  207 

body  :  opt .  v  i  sSrest  ri  ct  i  on.  unitibody«- 

.  reduce  171 


(171) 


1  33 


state  208 


oojSdecl  :  idSlist  :  oot  .  CONST  ANT  ,*t  yoe  opt.S.expr. 
id  sh i f t  21 
.  error 
type  goto  24a 
tyoeSmark  goto  245 
name  goto  107 
suborogiarraytvar  goto  22 
se 1 ec t edScomp  goto  23 
predef i nedSat t r i  goto  24 
state  209 

opt .CONSTANT.  :  CONSTANT*  (10) 

.  reduce  10 
state  210 

tyoeSdecl  :  TYPE  id  IS*type$defn  ; 

ARRAY  shift  253 
RANGE  shift  219 
RECORD  shift  254 
(  shift  251 
.  error 

tyoeSdefn  goto  240 
enumS t ypeSde f n  goto  247 
i n t $ t ypeSde f n  goto  248 
arrayStyoeSdef n  goto  249 


1  34 


r 


recordJtypelaefn  goto  250 
rangeiconst  r  goto  252 
state  211 

modSbody  t  modSnature  BODY  id  IS  dee  1 arat i veSpart 

END  id*; 

;  shift  255 
.  error 
state  212 

f s t . S . oa r a  Idee  1  .  :  f s t . $ • par a$dec 1 .  »  paraSdecl* 

t  104) 

.  reduce  184 
state  213 

paraSdecl  :  idSlist  :  mode  t yoeima r k*oot .S.exor . 
opt .S.expr .  ;  *  (11) 

:=  shift  257 
.  reduce  1  1 
opt . S.expr.  goto  25h 
state  214 

mode  :  IN  OUT*  (191) 

.  reduce  191 
state  215 

fst.S.id.  :  fst.S.id.  t  id*  (15) 

.  reduce  15 


state  £  1 1, 


pel  :  s i mp 1 e Se xp r  oot. NOT.  IN 

oot  .const  r.«-  (78) 

.  reduce  78 
state  217 

oot .const  r .  :  constpr  (75) 

.  reduce  75 
state  218 

constr  :  rangeScons  t  r«*  (23) 

.  reduce  23 
state  219 

rangeSconst  r  :  RANGE*-r ange 
id  shift  229 
nun  shift  89 
charSst  r  shift  90 
.  error 
range  goto  258 
rangeSid  goto  170 
lit  goto  172 
state  220 

range  ;  rangeSid  .  .«-si  mpl  eSexpr 
oot . unaryJoD .  :  (81) 

NOT  shift  53 
*  shift  51 
-  shift  52 


t  yoeSmar* 


36 


reduce  81 


simoleSexpr  goto  259 
OPt .unarySoo  •  goto  99 
unarySoo  goto  50 
state  221 

f s t . addi ng$op . t erm.  :  f s t . addi ng$op  .  t erm .  addingSoP 
term*-  (89) 

.  reduce  89 
state  222 

t  s  t  .mu  1 1  Sop .  f  ac .  t  f s t . mu  1 1 Sop . f ac  .  multSop  fac«- 

(87) 

.  reduce  87 
state  223 

f  st  .  S  .comoSassoc  .  :  f  st  .  $  .compSassoc  .  /  «-c ompSassoc 

OTHERS  shift  123 

id  shift  21 

num  s  h i f  t  89 

charSst  r  shift  90 

(  shift  91 

.  error 

typeSmark  goto  125 
name  goto  129 
lit  goto  85 
discSrange  goto  122 


137 


state 


state 


comoSassoc  goto  260 
aggr  goto  86 
restrSchoice  goto  120 
pri  goto  121 

subor ogSa r r ay Svar  goto  22 
se 1 ec t edScomo  goto  23 
p rede f i ned$a 1 1 r i  goto  24 
var  goto  88 

224 

aggr  :  (  comoSassoc  f s t  .$• comoSassoc .  )*■ 

.  reduce  43 

225 

f st  choice.  :  f s t . S  .choi ce .  !«-choice 

OTHERS  shift  123 

id  shift  171 

num  shift  89 

charSstr  shift  90 

.  error 

typeinark  goto  125 
name  goto  107 
rangeSid  goto  2 62 
lit  goto  172 
discSrange  goto  1 22 
choice  goto  261 


C  4  3 ) 


38 


restrSchoice  goto  263 
suborogSar rayivar  goto  22 
sel ectedScomp  goto  23 
predef inedSat t r i  goto  24 
state  226 

compSassoc  :  restrSchoice  f s t  .  $ . c ho i ce .  =  >«-expr 
ODt .unary $oo .  :  *  (81) 

NOT  shift  53 
♦  shift  51 

-  shift  52 

.  reduce  81 
exor  goto  264 
simoleiexpr  goto  48 
re)  goto  47 
opt . unary $oo .  goto  49 
unarylop  goto  50 
state  227 

ODt. . 1st. $. choice..!. exor.  :  fst.S. choice.  s>«-expr 
opt  .unarySop .  :  «*  (81) 

NOT  shift  53 
+  shift  51 

-  shift  52 

.  reduce  81 
expr  goto  265 


139 


simoleSexpr  goto  48 
pel  goto  47 
oot .unarySoD.  goto  49 
unarySop  goto  50 
state  228 

discSrange  :  typeimark  RANGE  range*  (40) 

.  reduce  40 
state  229 

rangeSid  :  id*-  (27) 

.  reduce  27 
state  230 

suborogSbody  :  subprogSsoec  IS  dec  1 arat i veSpar t  BE¬ 
GIN  segSofSstmts  END  id  ;*-  (192) 

.  reduce  19 2 
state  231 

Stmt  !  <<  id  >>*-Strnt 

opt .  i  t  erSspec  .  :  «•  (148) 

error  shift  131 

ASSERT  shift  147 

CA3E  shift  149 

EXIT  shift  144 

FOR  shift  152 

GOTO  shift  14b 

IF  shift  148 


140 


NULL  sn  i  f  t  138 


RETURN  shift  145 
WHILE  shift  153 
id  shift  21 
<<  shift  130 
.  reduce  148 
name  goto  143 
suoorogSarray Svar  goto  22 
se 1 ec t edScomp  goto  23 
predef i nedSat t r i  goto  24 
var  goto  142 
stmt  goto  266 
simoleSstmt  goto  128 
comooundSstmt  goto  129 
ass i gnment $s t mt  goto  132 
suborogScall Sstmt  goto  133 
ex i t  Sstmt  goto  1 34 
returnSstmt  goto  135 
gotoSstmt  goto  136 
assertSstmt  goto  137 
i  f Sstmt  goto  1 39 
caseSstmt  goto  140 
loooSstmt  goto  141 
opt . i t erSspec .  goto  150 


iterSspec  goto  151 


state  232 

expr  :  expr*1og$oo  rel 

as s i gnmen t $s t m t  2  var  2  =  **Ppf ' 

AND  shift  69 
OR  shift  70 
XOR  shift  71 
;  shift  267 
.  error 
1 ogSoo  goto  68 
state  233 

expr  :  expr*log$op  rel 

as  s  i  gnmen  t  $  s  t  m  t  2  name  2  =  expr*-! 

AND  shift  69 
OR  shift  70 
XOR  shift  71 
;  shift  268 
.  error 
1 ogioo  goto  68 
state  239 

exitSstmt  :  EXIT  oot.id.  opt  .*HEN.cond.«-; 
;  shift  269 
.  error 


192 


state  235 


oot  .WHEN. cond.  :  wHEN^-eond 
OPt .unarySoo.  i  *■  (81) 

NOT  shift  53 
♦  shift  51 
-  shift  52 
.  reduce  81 
expr  goto  199 
simoleSexpr  goto  98 
rel  goto  97 
oPt • unarySoo •  goto  99 
unarySoo  goto  50 
cond  goto  270 
state  23t> 

returnSstmt  :  RETURN  oot.expr.  ; *■  (139) 

.  reduce  139 
state  237 

gotoSst'nt  J  GOTO  id  }*•  (lb2) 

.  reduce  162 
state  238 

assert Sstmt  ;  ASSERT  cond  #«*  (163) 

.  reduce  163 
state  239 

f st  .condSext  .  :  f  st  .condSext  .«-cond$ext 

cond  :  expr  fst  .condSext  (192) 


AND. THEN  shift  272 


OR. ELSE  shift  273 
.  reduce  142 
condSext  goto  271 
state  240 

ifSstmt  :  IF  cond  THEN«-seaSo  f  $s  t  mt  s 

f s t .ELSIF .cond. THEN . seq$o f Sst mt s  .  oot . ELSE . seaSo f $st mt s .  END 
IF  ; 

f  st  .stmt .  :  *■  (112) 

.  reduce  1  1 2 
f St .stmt .  goto  94 
Seq$of$stmts  goto  274 
state  241 

caselstmt  :  CASE  e«or 

OFefst. WHEN. choice.. 1st. $. choice. .S.seqSofSstmts.  END  CASE 

fst.  when. choice.. 1st. $. choice. .S.seqSofSstmts.  :  *■ 

(145) 


.  reduce  145 

fst. WHEN. choice.. 1st. S. choice. .S.seqSofSstmts.  goto 

275 

state  242 

basicSloop  :  LOOP  seqSof SstmtseEND  LOOP  opt. id.  » 
END  shift  27 b 


.  error 


144 


state  243 


iterSspec  :  FOP  1oop$oara  IN«-oPt  .RE  VERSE .  discirange 
opt. REVERSE.  :  «■  (154) 

REVERSE  shift  278 
.  reduce  154 
opt. REVERSE.  goto  277 
state  244 

objSdecI  :  idSlist  :  opt .CONST ANT .  t ype*op t . $ . e up r . 
opt.S.expr.  :  *■  (11) 

:=  shift  257 
.  reduce  1  1 
oot.S.expr.  goto  279 
state  245 

type  :  type$mark«-  (17) 

.  reduce  17 
state  24b 

typeSdecl  J  TYPE  id  IS  typeSdefn*-; 

»  shift  280 
.  error 
state  247 

tyoeSdefn  :  enumSt ypeSdef n*  (18) 

.  reduce  18 
state  248 

tyoeSdefn  :  i o t $t yoeSdef n*  (19) 


145 


reduce  19 


state  299 

tyoeSdefn  :  a  r  r  ay  S  t  yoe  Sde  f  n«-  (20) 

.  reduce  20 
state  250 

typeSdefn  :  recordSt  yoeSdef n«-  (21) 

.  reduce  21 
state  251 

enumit  ypeSde  fn  :  ( *-e  nu*i  1  i  t  >  f  St  •  enumS  1  i  t  •  ) 

id  shift  282 
charSstr  shift  283 
.  error 

enumS lit  goto  2 81 
state  252 

i nt St ypeSdef n  :  rangeSconst  r«*  (39) 

.  reduce  39 
state  253 

arraySt  ypeSde  f  n  :  ARRAY«-(  index  fst.S.  index.  ) 
tvpeSmark  ; 

(  shift  289 
.  error 
state  259 

recordSt  ypeSde  fn  :  RECORD^coropS 1 i s t  END  RECORD 
f  st .  ob  j  Sdec  1  .  :  ( 55 ) 

1  96 


OF 


.  reduce  55 
comoSlist  goto  285 
f s t .ob j Sdec 1  .  goto  28b 
state  255 

modSbodv  :  modSnature  BODY  id  IS  dec  1 arat i veSpart 

END  id  ;«■  (197) 

.  reduce  1°7 
state  25b 

oaraSdecl  :  iaSHst  :  Tiode  typeSmark  op  t  .  S  .  e*P  r  .  «■ 

(  18b) 

.  reduce  18b 
state  257 

oot.S.exrr.  :  :=«-e*or 

oot  .unarySoo.  i  *"  (31) 

NOT  shift  53 
♦  shift  51 
-  shift  52 
.  reduce  81 
e*or  goto  287 
jimolelexor  goto  98 
re  1  goto  4 7 
oot .unarySoo  .  goto  99 
unarySoo  goto  50 


state  258 


rangeSconstr  :  RANGE  r  .,nge«-  (25) 

.  reduce  25 
state  259 

range  :  rangeSid  ..  s  \  mo  1  e  $e  xp  r«-  (2b) 

.  reduce  26 
state  260 

f  s  t  .  $  .  coirpla  ssoc  .  :  fst.S.compSassoc.  *  compSassoc*- 

(42) 

.  reduce  42 
state  261 

f st .S.choi ce.  :  f st  .S.choi ce.  !  choice*-  (45) 

.  reduce  45 
state  262 

choice  :  rangeSid*  (52) 

.  reduce  52 
state  263 

choice  :  res  t  r  Sc  ho  i  c  e«-  (53) 

.  reduce  53 
state  2b4 

comoSassoc  :  restrSchoice  f  s  t  .  5  .  c  ho  i  c  e  .  =  >  exor«- 

(46) 

expr  :  exprelogSop  rel 
AND  shift  69 


1  48 


OR  shift  70 


XOR  shift  71 


.  reduce  48 
logSoo  goto  68 
state  265 

opt . . 1 s t . $ . c h o i c e . . $ . e xp r .  :  f s t . $ . r ho i c e . 

(a?) 

e*o r  :  expr^logSoo  rel 
AND  shift  69 
OR  shift  70 
XOR  shift  71 
.  reduce  47 
logSoo  qoto  68 
state  266 

Stmt  :  <<  id  >>  Stmt**  (117) 

.  reduce  117 
state  267 

ass  i  gnment  5st  mt  :  var  :=  expr  ',*■  (129) 

.  reduce  129 
state  268 

ass  i  gnmen  t  Ss  t  m  t  :  name  :  =  exor  ;  «•  (150) 

.  reduce  130 
state  269 

exitistmt  :  EXIT  ODt.id.  oot .WHEN.cond.  »*■ 
.  reduce  161 


>  expr«* 


(  161  ) 


1  49 


state  270 


opt . WHEN . cond .  :  WHEN  cond«-  (loO) 

.  reduce  160 
state  27 1 

fst .condSext .  :  fst .condSext .  condSext*- 
.  reduce  141 
state  272 

condSext  :  AND.  THEN*-expr 
opt  .unary  Sod  .  :  (81) 

NOT  shift  53 

*  shift  51 

-  shift  52 

.  reduce  81 
expr  goto  288 
simpleSexpr  goto  48 
rel  goto  47 
op t . una ry Sod .  goto  49 
unarySop  goto  50 
state  273 

condSext  :  OR.ELSE^expr 
oot  .unarySoo .  :  (81) 

NOT  shift  53 

♦  shift  51 

-  shift  52 


(  141  ) 


150 


reduce  81 


expr  goto  289 
simpleSexor  goto  48 
re)  goto  47 
opt . unary  Sod .  goto  49 
unarySop  goto  50 
state  27a 

i  f  $ s t <n t  :  IF  cond  THEN 

seq$of$stmt3«-fst.ELSIF.cond.THEN.seqSof$stmts. 
od t . ELSE . seqSo f Ss t m t s  .  END  IF  } 

f  s  t  .  ELS  IF  .  cond  .  THEN .  seqSo  f  $s  t '"t  s  .  :  *■  (135) 

.  reduce  1 35 

f s t . ELS  I F . cond . THEN . seqSo f Ss t m t s .  goto  290 
state  275 

fst. WHEN, choice.  .1st.'  .choice. .S. seqSofSstmts.  : 

fst. WHEN. choice.. 1st. $. choice. .$.seq$of$stmts.*-NHEN  choice 
f s t . S . c ho i c e  .  =>  seqSofSstmts 

caseSstmt  :  CASE  expr  OF 

fst. WHEN. choice.. 1st. $. choice. .S.sea$ofSstmts.«-END  CASE 
END  shift  292 
WHEN  shift  291 
.  error 
state  276 

DasicSloop  :  LOOP  seqSofSstmts  END*-L00P  opt. id.  '• 


151 


LOOP  shift  293 


state 


state 


state 


state 


state 


.  error 
2  77 

iterSspec  :  FOR  loopSpara  IN  opt  .REVERSE  .«-di  scSrange 
id  shift  21 
.  error 

typeSmark  goto  125 
name  goto  107 
discSrange  goto  294 
subprogSarray Svar  goto  22 
se 1 ec t edScomp  goto  21 
predef i nedSat t r i  goto  24 

278 

opt. REVERSE.  :  REVERSE*-  (155) 

.  reduce  155 

279 

objSdecl  :  idSlist  :  opt .  CONSTANT  .  type  op  t .  $  .  exp  r .  *■ 
}  shift  295 
.  error 

280 

tyoeSdecl  :  TYPE  id  IS  typeSdefn  ;*■  (24) 

.  reduce  24 
281 

enumSt  yoeSdef  n  :  (  enum$lit«-»  f  s t  . enumS  1  i  t .  ) 


152 


d 


,  shift  2<?6 
.  error 
state  282 

enumS  lit:  id*-  (32) 

.  reduce  32 
state  2 83 

enumSlit  :  charlstrr  (33) 

.  reduce  33 
state  289 

arraySt ypeSde fn  :  ARRAY  («*index  fst.S. index.  )  OF 
tyoeimark  } 

id  shift  21 
.  error 

t ypeSvark  goto  299 
naitie  goto  107 
index  goto  29 7 
discSrange  goto  298 
suboroglarrayivar  goto  22 
sel ectedicomp  goto  23 
predef i nedSat t r i  goto  29 
state  205 

recordSt yoeSde f  n  :  REC0R0  comp$  1  i  st *-END  RECORD 
END  shift  300 
.  error 

153 


state  286 


f st .ob j $oec 1  .  :  f  st  .ob  j  Sdec  1  .♦•ob  j  Sdec  1 
comoSlist  :  f  s  t .  ob  j  Sdec  )  .  *•  (57) 

id  shift  66 
.  reduce  57 
objSdecl  goto  301 
idSlist  goto  100 
state  287 

oot.S.expr.  :  :  =  expr*  (12) 

e*pr  :  expr*!og$op  re) 

AND  shift  69 
OR  shift  70 
XOR  shift  71 
.  reduce  12 
logSoo  goto  68 
state  288 

expr  :  expr+’logSop  re! 

condSext  :  AND. THEN  expr*’  (143) 

AND  shift  69 
OR  shift  70 
XOR  shift  71 
.  reduce  143 
logSoD  goto  68 
state  289 


154 


exp  r  :  expr*-loqSoB  pel 

condSext  :  OR. ELSE  expr«-  (144) 

AND  shift  69 
OR  shift  70 
XOR  shift  71 
.  reduce  149 
1 og$op  goto  68 
state  290 

fst.ELSIF. cond. THEN. seqiofSstmts.  : 

f  s  t  .ELS IF  .  c ond .  THEN .  seqSo  f  S s  t  mt  s  . *-ELS  I F  cond  THEN 

seqSof  $s t  mt  s 

ifSstmt  !  IF  cond  THEN  seqSo  f  $  s  t  mt  s 

fst.ELSIF. cond. THEN. seqSof$stmts.*-oot. ELSE. seqSofSstmts.  END 
IF  ; 

oot  .ELSE  .  SeqSo  f  Sat  mt  s  .  :  «■  (137) 

ELSE  shift  304 
ELSIF  shift  302 
.  reduce  137 

oo t . ELSE . seqSo f Ss t mt s  .  goto  303 
state  291 

fst. WHEN. choice.. 1st. S. choice. .S.seoSofSstmts.  : 

fst. WHEN. choice.. 1st. S. choice. .S.seqSofSstmts.  WHEN«-choice 

f st . S .cho i ce .  =>  seqSofSstmts 
OTHERS  shift  123 


155 


id  shift  171 


num  shift  89 
charSst  r  shift  90 
.  error 

typeSmark  goto  125 
name  goto  107 
rangeSid  goto  262 
I i t  goto  172 
discSrange  goto  122 
choice  goto  505 
restrSchoice  goto  265 
suborogSar raySvar  goto  22 
se 1 ec t edScomp  goto  25 
predef ined$at  t  ri  goto  2a 
state  29 2 

caseSstmt  :  CASE  expr 

fst. WHEN. choice.. 1st. $. choice. .$.sed$of$stmts.  END«-CASE 
CASE  shift  506 
.  error 
state  293 

basicSloop  :  LOOP  seqSofSstmts  END  L00P«-opt  .  i  d . 
opt. id.  :  *■  (151) 

id  shift  10a 
.  reduce  151 


OF 


156 


oot.id.  goto  307 


state  29u 

i t  erSsoec  • 
d i  sc ifanqe*1  (156) 

.  reduce  156 


FOR  loopipara  IN  opt . REVERSE. 


state  295 

objSdecl  :  idSlist  :  oot .CONST  ANT .  type  opt.S.exor. 

;+  (13) 

,  reduce  13 
state  29e 

enunStyoeSdefn  :  (  enumSlit  ,«-f  s  t .  enum$  1  »  t  .  ) 

f  st  «enuw$  1  i  t  •  !  *■  (^R) 

.  reduce  2 9 
f  s t  •  eou^nS  I  i  t  •  goto  308 


state  2 97 

arrayStvpeSdefn  :  ARRAY  (  i  ndex«*tst .  S .  i  ndex  .  )  OF 

tvoeSmark  ! 

f  s  t  .  5  .  i  ndex  .  :  *•  (  35  ) 

.  reduce  35 

fst.S.  index.  goto  309 


state  2 96 

index  :  discSrange* 
.  reduce  38 


(38) 


state  299 


i  ndex 


t  ypeSmar  k«- 


(39) 


disc$range  !  t  yoeSmark*-RANGE  range 
RANGE  shift  18b 
.  reduce  39 
state  300 

recordSt ype Sde f n  J  RECORD  compSlist  END«-REC0RD 
RECORD  shift  310 
.  error 
state  301 

f st .oo j Sdec 1 .  :  f s t . op j Sdec 1  .  objSdecl*-  (5b) 
.  reduce  5b 
state  302 

fst. ELSIE. cond. THEN. seqiofSstmts. 
fst  .ELSIF  .cond.TiiEN.seq$of$stmts.  ELSIF*-cond 

seqSof Sstmts 

oot.unaryiop.  :  «■  (81) 

NOT  shift  53 
*  Shift  51 
-  shift  52 
.  reduce  81 
expr  goto  199 
simoleSexpr  goto  48 
rel  goto  47 
OPt .unarySop  .  goto  49 


THEN 


unarySoo  goto  50 
cond  goto  511 
state  303 

ifSstmt  !  IF  cond  THEN  seqSofSstmts 

fst.ELSIF. cond. THEN, seqSofSstmts.  opt. ELSE. seqSofSstmts.  «•£  NO 

IF  ; 

END  shift  312 
.  error 
state  304 

oot .ELSE . seq$o f 2s t mt s  .  :  ELSE*seoSo f Ss t mt s 
f  st  .stmt .  :  *■  (112) 

.  reduce  1  1  2 
fst.stmt.  goto  94 
seqSofSstmts  goto  313 
state  305 

fst. WHEN. choice.. 1st. 3. choice.. 5. seqSofSstmts.  : 

fst. WHEN. choice. .1st. 3. choice. .3. seqSofSstmts.  WHEN 

c ho i cee f s t . 5 . c ho i ce  .  =>  seqSofSstmts 
t st .3. choi ce.  :  e  (44) 

.  reduce  44 
fst .3. choice.  goto  314 
state  306 

caseSstmt  :  CASE  expr  OF 

f  s t  . WHEN . c ho  i  ce . .  1  s t  .  3  .  c ho  i  ce  .  .  3  .  sedSo  f  3 s t  mt  s  .  END  CAJE*- 

159 


(147) 


.  reduce  147 
state  307 

basicSloop  :  LOOP  seq$of$stmts  END  LOOP  oot.id.*; 

;  shift  315 
.  error 
state  308 

f  St  .enumSl  i  t .  :  f  s t  . enumS  1  i  t . *-enurr$  1  i  t 

enumS  t  yoe  Sde  f  n  :  (  enumSlit  ,  f  s  t .  enumS  H  t  .«- ) 

id  shift  282 
charistr  shift  283 
)  shift  317 
.  error 

enumS I i t  goto  316 
state  309 

fst.S.  index.  :  f  s  t  .  $  .  i  nde  x  .  * ,  index 

arrayStyoeSdef n  :  ARRAY  (  index  f s t . S . i ndex . * )  OF 

tvoeimark  ; 

)  shift  319 
i  shift  318 
.  error 
state  31 0 

reco r dSt yoeSde f n  :  RECORD  compSt ist  END  RECORD* 

(54) 
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reduce  5*4 


state  311 

fst.ELSIF.cond.THEN.seaSofSstmts.  : 

f st .ELSIF .cond . ThEN . seqSo f $s t nt s .  ELSIF  cond*-THEN 

seq$of Sstmt  s 

THEN  shift  320 
.  error 
state  312 

i  f  S s  t  -n t  :  IF  cond  THEN  seqSo  f  S s  t  *t  s 

fst. ELSIF. cond. THEN. seqSofSstwts.  opt. ELSE. seqiofSstmts. 

END«-IF  ; 

IF  shift  321 
.  error 
state  313 

oot  .ELSE.sedSof  Sstmts.  :  ELSE  seaiof  Sstmt  s*-  (13d) 

.  reduce  138 
state  314 

f  st  .$.  choice.  :  f  st  .  S  .choi  ce  .*- !  choice 
fst.  WHEN. choice. • 1st. S. choice. .i.seqiofSstmts.  • 

f s t . WHEN. cho i c e . . 1 s t . S . c ho i c e . . 5 . seqio f $s t m t s .  WHEN  choice 
f  st  .S.  choice.  ♦■  =  >  sedSof  Sst.-nts 
->  shift  322 
!  shift  225 
.  error 
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state  315 


basicSloop  :  LOOP  seqSof  $st  mt  s  END  LOOP  opt. id.  »  *■ 

(153) 

.  reduce  153 
state  3 1  o 

f  st  .enumS  1  i  t  .  :  f s t . enumS 1  i t  .  enumSHt*-  (30) 

.  reduce  30 
state  317 

enumS  t  ypeSde  fn  :  (  enu«i$l  it  r  f s t  .  enumS ) i t .  )  *■ 

(31  ) 

.  reduce  31 
state  318 

fst.S.  index.  :  fst.S.  index.  ,«-index 

id  shift  2  1 
.  error 

typeSnark  goto  2PP 
name  goto  107 
i nde x  goto  323 
discS-ange  goto  298 
suborogSar r ay ivar  goto  22 
se 1 ec t edSc omp  goto  23 
p rede f i nedSa t t r i  goto  24 
state  3 1 P 

a  r  ray  S  t  ypeSde  fn  :  ARRAY  (  index  fst.S. index.  )«-0F 
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typeimarlc  ; 


OF  shift  324 
.  error 
state  320 

fst.ELSIF.cora.THEN.seqSofSstmts.  : 

f s t . ELS  I F . c ond . THEN . seqSo f 3 s t m t s  .  ELSIF  cond 

THEN*-seq5of$stmts 

fst.stmt.  :  «■  (112) 

.  reduce  1  1  2 
fst.stmt.  goto  94 
seqSofSstmts  goto  32S 
state  321 

ifSstmt  :  IF  cond  THEN  seqSo f $ s t m t s 

f s t . ELSIF  . c ond . THEN . seq$o ( Sst mt s .  op t .  ELSE  .  seqSo f Sst mt s .  END 
IF*-; 

;  Shift  326 

.  error 

state  322 

fst. WHEN. choice.. 1st. $. choice.. S.seaSofSstmts.  : 

f s t . WHEN . c ho i c e .. 1 s t ,$. c ho i c e ..$. seqSo f Ss t mt s  .  WHEN  choice 
f  s  t  .  S  .  c  ho  i  c  e  .  =>*-seqSo  f  S  s  t  m  t  s 
fst.stmt.  ;  «-  (112) 

.  reduce  1  1  2 
fst.stmt.  goto  94 
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seqSo f 3s t mt s  goto  327 
state  323 

fst.S.  index.  :  fst.S. index.  ,  index*-  (3o) 

.  reduce  3b 
state  324 

array StypeSdefn  :  ARRAY  (  index  fst.S. index.  ) 

0F*-t  ypeimarK  # 

id  shift  21 
.  error 

typeSmarx  goto  328 
name  goto  107 
suDorogSar raySvar  goto  22 
se 1 ect eaScomp  goto  23 
predef i nedSat t r i  goto  24 
state  325 

fst. ELSIF. cond. THEN. seqSofSstmts.  : 

f S t . ELS  IF . c ond . THEN . seqSo f S S t m t s .  ELSIF  cond  TnEN 

seqSo  f  Sst  mt  s<-  (136) 

.  reduce  13b 
state  32b 

ifSstmt  :  IF  cond  THEN  seqSo  f  $  s  t  -\  t  s 

fst. ELSIF. cond. THEN. seqSofSstmts.  oot.ELSE.seq$of$stmts.  END 
IF  (139) 

.  reduce  139 
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state  32  7 


fst. WHEN. choice.. 1st. S. choice. .S.seqSofSstmts 
fst. WHEN. choice.. 1st. $. Choice. .S.seqSofSstmts.  WHEN 
f  s t  . S  . cho i  ce  .  =>  seqSo f  Ss  t  m t  s*-  (14b) 

.  reduce  146 
state  328 

a r r ay  5 1 y o e $de f n  :  ARRAY  (  index  fst.S. index. 
tyoeJmark*-; 

;  shift  3 29 
.  error 
state  329 

arrayStyoeSdef n  :  ARRAY  (  index  fst.S. index, 

tyoeSmark  !*■  (  37  ) 

.  reduce  37 

71/95  terminals.  113/150  nonterminals 
205/250  grammar  rules.  330/475  states 
0  sh i f t / reduc e »  0  reduce/reduce  conflicts  reported 
113/150  working  sets  used 

memory:  states. etc.  2118/4000.  parser  458/1500 

230/250  distinct  lookahead  sets 

40a  extra  closures 

330  shift  entries.  12  exceptions 

193  goto  entries 

203  entries  saved  by  goto  default 
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choice 


)  OF 


)  OF 


Ootimizer  soace  used:  incut  935/U000,  outout  380/1500 
380  table  entries#  0  zero 


maxi  mum 


soread: 


256#  maximum  offset! 
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APPENDIX  D 


Test  Programs  and  Outputs 

This  Appendix  illustrates  the  scanner/parser  actions 
accomplished  by  this  thesis.  The  test  programs  were  written 
to  include  the  syntactic  constructs  of  Ada/MCS  and  to  fully 
exercise  the  capibilities  of  the  parser  and  scanner.  The 
first  four  programs  include  the  output  of  the  scanner /parser 
in  order  to  demonstrate  the  output  format.  The  final  six 
orograms  are  provided  with  no  output.  The  odd  numbered  pro¬ 
grams  are  syntactical ly  correct  and  eacn  program  is  followed 
by  a  similar  orogram  with  an  error  included. 
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Program  one 


FUNCTION 


sin  IS 
8EG  IN 


FOR  x  IN  ;  RANGE  1..10 
LOOP 


x  :  =  a  +  b 
ENO  LOOP; 
cos ( x ,  y ) ; 

RETURN  x  ; 


ENO  sin; 


i 

i 


1(50 


J 


Output  one 


14  !  FUNCTION 

!  opt . v i sSrest r i c t i on . 
1  opt .SEPARATE. 

1  subproglnature 
5^  !  sin 

!  designator 

is  :  is 


5 


opt . formal Soart  . 
opt. RETURN. typeSmark. 
subprogSspec 
BEGIN 

oot .useSc  1 ause  . 
f  st .dec  1  . 
f st .body. 
declarativeSoart 

f st  .stmt  . 


13  !  FOR 
54  !  x 

!  loopSoara 


17  i  IN 
54  !  z 

!  oot . RE  VERSE . 


j 


16R 


!  name 


29  J  RANGE 
!  typeimark 

55  :  i 
:  nt 

J  rangeSid 
71  !  . . 

55  !  10 

1  opt .unarySop . 

:  nt 


D  p  i 
f  ac 

f  S t . mu  1 t  Sod .  f  ac  . 


19  J  LOOP 


term 

fst .addingS op. term, 
s i mp I eSexor 


!  range 
i  discSrange 
!  i terSspec 
1  opt . i terSspec  . 
fst. stmt. 

54  !  x 

1  name 
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70  i 


54  j  a 

!  opt .unarySoP. 

!  name 
92  J  ♦ 

!  pri 
!  f  ac 

!  f  s t . mu  1 t Sop .  f  ac  . 

!  term 

i  f st .addi ngSop . t erm . 

!  addingSoo 
54  J  b 
!  name 
78  !  * 
i  pri 
i  f  ac 

!  f  s  t . mu  1 t Soo  .  f  ac  . 

!  term 

!  f s t . add i nqSop . t e r m . 

{  si  mole Sex or 

!  op t . r e 1  a  1  Sop . s i mo  1 eSe xp r . 
!  re  1 
1  exor 

!  as s i gnmen t $s t m t 
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s i *ol eSstmt 


!  stmt 
!  ♦  st . st mt . 

11  !  END 

!  seq$o  t $  s  t  m t  s 
19  i  LOOP 

78  |  ; 

!  opt . i d . 
i  eas i cS 1 ooo 
!  1 oopistmt 

1  compoundSstmt 
!  Stmt 
i  fst.stmt. 

5a  !  cos 
!  name 

79  :  ( 

5a  !  x 

!  oot .unary Sop. 

1  name 
82  :  , 

!  pr  i 
!  f  ac 

1  fst.multSop.fac. 

1  term 


172 


fst.addingSop.term 


!  simp) elexpp 

|  opt . re  1  a ) Sop . s i mo  1 e$exp r . 
!  re  1 
!  e*pr 

!  fst.S.expr. 

5a  i  y 

!  opt .unarySoo. 

!  name 
80  !  ) 
i  pr  i 
i  f  ac 

!  f st .mu) tSop. f ac  . 

!  term 

!  fst.addingSop.term. 
i  simp) eSexor 

!  oDt . ret  al lop.simpl eSexor, 
!  ret 
!  e  *  p  r 

!  f st .S.expr. 
i  subProgSar raySvar 
!  name 
79  :  ; 

!  subprogSca ) ) Ss tmt 
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1 


!  s i mp I eSst  mt 
!  stmt 
!  f  s  t . s t  mt  . 

32  i  RETURN 
54  !  * 

oot  .unar y$op. 
i  name 
78  :  ; 

!  or  i 
!  tac 

!  f st .mul t Sod. f ac  . 

!  term 

;  f s t . add i ngSop . t e rm . 
simoleiexor 

J  oDt . re  1  a  1  Sod , s i mo  1 e Se xpr . 
!  re  1 
!  e*or 

!  opt.exor. 

!  returnSstmt 
!  s i mo  1 e$st  mt 
!  stmt 
!  f 3t . St  mt  . 

n  :  end 

!  seaSo  f Ss  t  mt  s 


1  74 


w 


7b  :  ; 

!  3uborogSbody 
J  unit  Sbody 
!  compi ! at i onSun i t 


I 

i 


1  75 


1 


i 


f 


Program  two 


FUNCTION 


sin  IS 
BEGIN 


FOR  x  IN  2  RANGE  1..10 
LOOP 


x  :=  a  ♦  fc; 
END  LOOP; 
cos(x,y); 

RETURN  x  ; 

END  ?  sin; 


1  76 


Ou  t  DU  t  two 


14  |  FUNCTION 

!  oot .vi sSrest  ri ct i on. 

opt  .  SEP ARA  TE  . 
i  subprogSnat ure 

54  !  sin 

1  des i gnat  or 
16  !  IS 


5 


oot-fomalioart. 

oot .RETURN. type  5 mark. 

suborog-Ssoec 

BEGIN 

oot  .useSc ' ause. 
f  st . dec  1  . 
f  s  t  .  boav  . 
dec  1 arat i veipart 
t  s  t . s  t  nt  . 


15  !  FOR 
54  ;  * 


!  1 oooioara 

17  !  IN 
54  !  z 

!  oot. REVERSE. 
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!  name 


29  |  RANGE 
!  t  yoeima  r k 
55  !  1 

!  lit 

!  r  ange 5 i d 
7  1  1  .  . 

55  !  10 

I  oDt .unaryJoc. 

!  Ht 
1  or  i 
!  f  ac 

!  fst.mul tloo.fac. 

19  !  LOOP 
J  term 

!  fst.  addin  g Sod. term. 

1  simoleSexor 
1  range 
!  discSrange 
J  i terSspec 
!  opt.iterfspec. 

1  fst. stmt. 

5«  !  * 

!  name 

1  78 


¥ 


70  !  :  = 

5«  !  a 

!  oot . una  r y  Sop • 

J  name 
92  |  ♦ 

!  pr  i 
!  f  ac 

!  t  s  t . mu ) t  Sod . ♦ ac . 

!  term 

|  f s t  .  add i nq$OD . t e f m . 

!  addingSoo 
54  !  o 
J  name 
70  !  ; 

!  or  i 
!  f  ac 

J  f s  t . mu  I t  Sop . f  ac  . 

!  term 

1  f s t « add i ng Sop . t e r m . 

J  s i mp 1 eSexor 

!  op t • re ) a  1 S op . s i mo t ei e x D r . 

!  re  1 


1  79 


expr 

a  3  s i gnmen  t  S  s  t  m  t 


S i mp 1 e  5 s  t  m  t 
Stl't 

f  St . 3 t  mt  • 

END 

seqSotSstmts 

LOOP 

} 

opt . i d . 
oas  i  c  S  1  ooo 
1  oopSs  tint 

comoounaSstmt 

stmt 

f St  .  Stmt  . 
cos 
name 

:  c 

I  X 

opt .unary Jod. 
name 

. 

i  • 

o  r  i 


f  ac 

f  s  t • mu  1 t  $oo . f  ac 


fst.addingSop.term 


!  si mpl eiexor 

J  opt . re ) a  1  Sop • s i mp 1 e $e * p r  , 

!  re  1 
!  expr 

fst.S.expr. 

54  J  y 

|  opt .unarylop. 
name 
80  !  ) 

!  or  i 
J  f  ac 

!  f  s  t . mu  I t  Sop  .  1  ac  . 

!  term 

!  f st .addi ngSop.term. 

!  s i mol eSexor 

J  op t . re  I  a  I  Sop . s i mo i eSexpr . 
!  re  1 
!  expr 

;  fst.S.expr. 

!  subprogSarray Svar 
i  name 
78  :  ; 

!  subo rogSc a  11 S s t m t 
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S i mp ! eist  mt 


i  stmt 

!  fst.stmt. 

!  RETURN 
I  x 

!  opt .unarySoo. 

J  name 

i  • 
i  > 

!  or  j 

!  f  ac 

!  f s  t .mu  f  t Sop .fa c  . 

!  term 

!  f st .addi ngSop. term. 

!  s i mo  1 eSexor 

!  oPt . re  1  a  I  Sop . s i mp 1 e$expr . 
!  ret 
!  expr 

!  oot.exor. 

!  returnistmt 
J  simpteSstmt 
!  stmt 
!  fst.stmt. 

!  END 

!  seqSo  f  S  s  t  m t  s 
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Scanner  e r r o r : un < nown  symbol 


!  sin 
78  !  ; 

!  subDrogSbody 
!  unit  Sbody 
!  c omp i 1  a t i on  Sun i t 


185 


Program  t  h ree 


PACKAGE  test  IS 

TYPE  s  IS  RANGE  1  ..  10  ; 

TYPE  t  IS  RECORD 

idfer,  i  d  f  e  r  1 ,  i  d  f  e  r  2  :  s; 

END  RECORD; 
i  d  l  ;  t ; 

TYPE  set  IS  ARRAY(red, yellow, blue)  OF  colors 
orimary  J  set; 

T  f PE  victor  IS  ( wh i skey , f ox t rot ) ; 

END  test 


18U 


Output  three 


27 

:  PACKAGE 

1 

1 

oPt.visSrestri 

1 

1 

opt • SEP ARA  f  £ . 

1 

1 

modSnature 

54 

!  test 

18 

:  is 

5b 

!  TYPE 

1 

1 

opt . useSc 1 ause 

I 

1 

f st .dec  1 . 

54 

!  s 

18 

:  is 

29 

!  RANGE 

55 

i  1 

• 

t 

1  i  t 

ranges i d 

7  1 

1 

1  •  • 

55 

;  io 

oot .unarySoo. 
1  i  t 


pr  i 
f  ac 

f  st .mu  1 t  Sod  .  f  ac  . 
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7  8  !  ; 

!  t  ern 

1  f s t . add i ngi od • t e rn • 

!  s i ™p I eSexpr 
i  range 

i  ranqeSconst r 
;  i  n  t  $  t  y pe  5de  f n 
typeSdefn 
!  typeSdecl 
!  dec  1 
!  f st .dec  t  . 

36  !  TYPE 
54  !  t 
18  !  IS 
30  !  RECORD 

!  f st  ,oC i Sdec 1  . 

54  |  i d  f e  r 

J  f  s  t  .  $  .  i  d . 

82  !  , 

54  |  i  df er 1 

!  f  st . $  .  i  d . 

82  !  , 

54  !  i df er2 
!  f st .S. id. 

1  86 


91  !  : 

1  id$t ist 
5«  ;  s 

!  oot .CONSTANT. 

!  name 
78  !  ; 

1  tYPeimark 
I  type 

i  oDt.S.expr. 

!  oP  j  Saec  1 
!  f  s  t . ob  j  Sdec 1  . 

1 1  !  END 

!  comoi list 
30  !  RECORD 

!  recoraltyoeloefn 
!  typeSdefn 
73  !  ; 

!  t  y oeSdec  I 
!  dec  1 
!  f st .dec  1  . 

54  I  idl 

!  fst.S.id. 

91  !  : 

1  i  d  S  1  i  s  * 
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sa  : 


t 


!  opt .CONSTANT  . 
!  name 
78  !  ; 

!  typeSmark 
!  t  ype 

!  oPt.S.expr. 

!  ob  j  Sdec  1 
1  dec  1 
!  f  s  t . dec  1  . 


36 

!  TYPE 

54 

!  set 

18 

!  IS 

3 

ARRAY 

79 

:  ( 

54 

!  red 

name 

88 

1 

l  9 

i  typeimark 
!  index 

!  f  s  t . $ . index. 

54  |  yellow 
!  name 

aa  ;  , 
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W 


t  y  peSma  r  k. 


!  index 

!  f st .  S.  i ndex . 

54  !  blue 
!  name 

so  :  ) 

!  tvpeimark 
!  index 

I  fst.J. index. 

21  !  OF 
54  j  colors 

!  name 
78  !  ; 

!  tvoelmark 
I  arraySt yoeiaef n 
I  tyoeiaefn 
!  t  yoe iaec 1 
!  dec  1 
!  t s  t . dec  1  . 

54  |  orimary 

I  f st id. 

91  !  : 

!  idilist 

54  |  set 
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1  oot. CONSTANT 


i  name 
78  :  ; 

!  typeSmark 
!  type 

1  oot.S.expr. 

!  oo j idee  1 
!  dec  1 
i  tst .dec  1  . 


3o 

1 

1 

TYPE 

54 

1 

1 

victor 

18 

1 

1 

IS 

79 

1 

1 

( 

54 

1 

• 

whiskey 

!  enumi 1 i t 

82  !  , 

!  fst.enumilit. 

5  4  !  foxtrot 

!  emjmi  I  i  t 
!  fst.enumSlit. 
80  i  ) 

j  enumS t voe Sde f n 


i  t  yoeldef n 


t  yoeiaec 1 


!  dec  I 
!  f  st .dec  1  . 

11  !  END 

!  f st .body . 

1  dec  1 arat i veioart 
!  oot . IS.dec larativeioart. 

59  i  test 
!  op  t . i d . 
i  itodSsoec 
!  unit  Soody 
!  comoi  I  at i onSun i t 
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Program  four 


PACKAGE  test  IS 

TYPE  s  IS  RANGE  1  ..  10  } 

TYPE  t  IS  RECORD 
i  d  f  e  r  #  idferl#  i  d  f  e  r  2  :  s ; 

END  RECORD; 
idt  :  t; 

TYPE  set  IS  ARRAY C red# yell ow# b) ue)  OF  colors; 
primary  :  set; 

TYPE  victor  IS  (whi skey # f oxt rot ) ; 

end  test  ; 
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Output  four 


27  S  PACKAGE 


OPt.visSrestriction. 
OPt. SEPARATE. 


roodSnature 


59 

1  test 

18 

!  IS 

36 

!  TYPE 

1 

1 

opt .use$c 1 ause 

1 

« 

f st .dec  1 . 

59 

!  s 

18 

i  IS 

29 

|  RANGE 

55 

:  i 

1 

1 

1  i  t 

> 

• 

ranges i d 

71 

• 

1  •  • 

55 

!  10 

!  opt  .unarySoo. 
!  lit 


pr  i 
f  ac 

f st .mu  1 t Soo . f ac  . 


193 


term 


f  st .addi ngSop (term, 
simp! eSexor 


range 


rangeSconst  r 
i nt  StypeSdef n 
typeSdefn 
t  ypeidec 1 


f st .dec  1  . 


TYPE 


RECORD 


i  f st .ob  j  Sdec 1  . 
5^  !  idfer 
S  f st .S. id. 


5«  i  idferl 

!  f st .1. i d. 


5«  !  idfer2 


I  f  s  t .  S .  i  d 
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5a  {  t 


{  opt .CONSTANT. 
!  name 

78  i  ; 

J  typeSmark 
!  type 

i  opt.S.expr. 

!  objSdecl 
•  dec  1 
!  fst.decl. 

36  |  TYPE 
5a  S  set 
18  !  IS 
3  !  ARRAY 

79  J  ( 

5a  i  red 

!  name 
82  !  , 

!  typeSmark 
!  index 

!  fst.S. index. 
5«  J  yellow 
!  name 
82  !  , 
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typeSmark 


!  index 

!  fst.S. index. 

54  }  blue 
j  name 
so  :  ) 

!  typeSmark 
!  index 

i  fst.S. index. 

25  !  OF 
54  j  colors 
!  name 
78  J  ; 

!  typeSmark 
}  arrayStypeSdef n 
'  typeSdefn 
}  tyoeSdecl 
J  dec  1 
!  f st .dec  1  . 

54  J  primary 
!  fst.S. id. 

91  S  : 

'  idSI i St 
54  S  set 
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{  opt .CONSTANT. 
}  name 
78  }  ; 

!  typeSmark 
!  type 

!  oPt.S.expr. 

}  objSdec? 

!  dec  1 
!  f st .dec  1  . 


36 

• 

1 

TYPE 

54 

1 

• 

victor 

18 

• 

1 

IS 

79 

• 

• 

( 

54 

1 

1 

whi skey 

S  enumS 1 i t 
82  5  , 

!  f st .enumS? i t . 
54  !  foxtrot 
!  enumSl i t 
!  f st .enumS lit. 
80  !  ) 

i  anumSt ypeSdef n 
{  typeSdefn 
78  !  ; 
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t  ypeSdec 1 


!  dec  1 
!  f st .dec  1  . 

11  2  END 

2  fst.body. 

2  dec  1 arat i veSpar t 
2  oPt . IS. dec  1 arat i veloart . 
54  2  test 
2  opt .id. 

2  modSspec 
2  unitSbody 
2  compi 1  at i onSuni t 
78  !  ; 


syntax  error 


Program  five 


PROCEDURE  testHt  IS 

a#aborting/  abo:  integer; 

TYPE  t  IS  ARRAY ( x  RANGE  1..10,  y  RANGE  1..3)  OF 
amat  r i *  :  t  ! 

BEGIN 

a  :s  le>#3ab7; 

b  :=  "this  is  a  character  string.";  —  this  is 
abo  :s  6.5E-4; 

END  test*-it  ; 


float; 


comment  i  III 
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Program  six 


PROCEDURE  testHt  IS 

a/aborting/  abo:  integer; 

TYPE  t  IS  array ( x  RANGE  1..10,  y  RANGE  1..3)  OF  float; 
amat  r i x  :  t  / 

BEGIN 

a  :=  16#3ab7; 

b  :=  "this  is  a  character  string.";  --  this  is  a  comment 
abo  ;=  6.5E-4; 

ENO  testHt  ; 


aoi 


Program  seven 


HI 


PR0CE0URE  idfer  IS 

TYPE  t  IS  ARRA Y (subsc r i ot  RANGE  number .. number )  OF  idfer; 
idfer,  idfer  :  idfer; 

idfer  :  CONSTANT  t; 

BEGIN 

idfer  :  =  number  *  number  MOO  idfer? 

LOOP 

IF  number  THEN 

idfer  :  =  number; 

END  IF; 

EXIT  WHEN  (number); 


idfer  i-  char*-st  r i  ng;  --  comment 

i 

ENO  loop;  '  I 

! 


ENO  idfer  ; 


Program  eight 


PROCEDURE  idfer  IS 

TYPE  t  IS  ARR A Y ( 9ub sc r i o t  RANGE  number  .. number )  OF  idfer 
i df er ,  idfer  :  i df erj 

idfer  :  CONST  ANT  t ; 


BEGIN 


idfer  :=  number  *  number  MOD  idfer; 
LOOP 

IF  number  THEN 

idfer  : =  number; 

END  IF 

EXIT  WHEN  (number); 
idfer  :?  c  har«*st  r  i  ng;  --  comment 
END  loop; 

END  idfer  ; 
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Program  nine 


PROCEDURE  test  IS 

idfer»  idferl#  idfer2  ;  s# 


BEGIN 

CASE  a  <  b  OF 


WHEN  number  s> 
a  :  =  c  ♦  d  /  e  ; 


ENO  CASE; 
END  test  ; 
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Program  ten 


PROCEDURE  test  IS 

idfer,  idferl# 

BEGIN 

CASE  a  <  b  OF 
a  :=  c 
END  CASE; 

END  test  ; 


idfer2  :  s; 


+  d  /  e  # 
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